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1 GENERAL INFORMATION 
1.1 Program Abstract 
The TKSO PDP11 Data Reliability program will exercise the 
and establish the performance quality of each unit through the 
accumulation of statistics. Predetermined sequences of operations 
will permit read and write compatibility (Media Interchange testing) 


and date reliability testing. This program will be designed to run in 
a PDP11 XXDP+ environment. 


The Data Reliability program will detect functional faults, but 
will not provide diagnostic isolation to the field replaceable unit. 


The PDP11 TKSO Data Reliability program is intended for the 
following users: 


1. Quality and user audit functions, 
2. F A €&T at our various facilities, 
3. Field service personnel, 
4 


DEC customers who choose to provide their own maintenance. 


Program uses include but are not limited to the following: 

1. Determination of a unit's specific performance (error rate) 

2. Fault detection, 

3. Repair verification, 

4. Installation verification, 

5 Preventive maintenance software tool. 

This program will exercise up to 4 TK50‘s in a_ round-robin 
manner. It will require 28KW of memory. One default pass will be 
when a tape cartridge (600') has been started at the beginning of tape 
(BOT) marker and has passed all available tape to the end of tape 
(EOT) marker over the tape head, twice. One End Of Pass (EOP) will 
require approximately 1 hour and 10 minutes for each unit under test. 


1.2 Runtime Environment Requirements 


Run time environment requirements include: 
1. XXDP+ Diagnostic Supervisor 
2. PODP11 family CPU, 
3. 28KW of memory, 
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150 
TH 4. an XXDP Load Device, 
1 
is 5. Console Terminal, 
a4 6. 1 to 4 TKSO drives with controllers, 
+44 7. 1 scratch tape cartridge / TK50 
159 
160 
161 
162 
+} 1.3 Related Documents And Standards 
16 
165 The TKSO Data Reliability program will run under the XXDP-+ 
166 operating system, and will be Supervisor compatible. The program, 
44 with the supervisor will run on all PDP11 processors. 
16 
{t This program will conform to the following documents: 
as 1. EL-ENDIA-11 “PDP11 Diagnostic Design Guide”, 
oaz 2. PDP Diagnostic Quality Assurance Checklist, 
1 
ae 3. Software Development Policies And Procedures Manual, 
6 : 
ne 4. DEC Std 100, 
1 
pe 5. UNIBUS/Q-bus Storage Systems Port Spec Version 2.1 
aot 6. Magnetic Tape Mass Storage Control Protocol Spec Version 1.6 
— 7. Mass Storage Control Protocol Spec Version 1.2 
1 
185 
186 1.4 Pass/Fail Criteria 
187 
188 A unit under test will not pass the data reliability mode of 
189 testing if any of the following error conditions have occurred during 
190 the test cycle: 
191 
192 1. Any irrecoverable write errors detected as documented in the 
193 TKSO product specification, 
194 
195 2. Any irrecoverable read errors detected as documented -in the 
196 TKSO product specification, 
197 
tm 3. Irrecoverable hardware errors have occurred, 
1 
200 4. CRC recoverable read errors which exceed TBD errors in 10 to 
oot the lith bits read 
202 
203 5. ECC recoverable read errors which exceed TBD errors in 10 to 
204 the 11th bits read 
205 
296 
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If less than the required data has been transferred, the 
confidence that the unit has met the error rate is diminished. That 
is to say if the program is run in a quick verify mode, the unit may 
be accepted as error free but only with a low degree of confidence. 


1.5 Data Compare Function 


The time required to perform 100% software data comparisons is 
entirely prohibitive for streaming tape drives. This problem is 
further exacerbated by the asynchronous nature of command execution 
under TMSCP and program size limitations which dictate the allocation 
of a single read data buffer. 


To minimize the impact of all this, tests 2 and 3 (the only tests 
which will perform software data compares) will do software data 
compares on every 4th record. To avoid the problem of performing data 
compares on a dynamic read buffer, 3 records will be read from tape 
using the Access command. 


1.6 Restrictions : 


This program is not intended for use as an isolation tool to 
detect a fault to the single Field Replaceable Unit (FRU). As such, 
it will not contain scope loops for that purpose. The parameter 
selection process, discussed later in this document, is meant to be 
used only for functional fault detection and unit isolation. 
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2 OPERATING INSTRUCTIONS 
2.1 User Dialogue 
The following user dialogue will be provided by the diagnostic to 


allow the operator to establish certain operational parameters of the 
program. 


2.2 Hardware Questions 


This set of questions must be answered by operator when the 
program is first started. 


CHANGE HARDWARE (L) ? no default 
NUMBER OF UNITS (D) ? 


x = Number of unit the p-table is 


UNIT x 
TKIP ADDRESS (0) 774500 ? being built for. 
T/MSCP UNIT NUMBER (0) 0 ? 


Unit specific prompting will continue for a maximum of 4 times, 
depending on the users response to the "NUMBER OF UNITS” question. 


2.2.1 Definition Of Hardware Questions - 


CHANGE HARDWARE - If you want to change the hardware p-table to be 
used in the testing this question must be answered yes. This question 
must be answered with a yes on the initial start of the program. 


NUMBER OF UNITS - Number of units to test in decimal. 
TKIP ADDRESS - The base address for this unit. 


T/MSCP UNIT NUMBER - The unit number of the controller board as 
specified by MSCP. 


2.3 Software Questions 


Answering of the software questions is always optional. Default 
values for a specific question can be obtained simply by typing a 


<CR>. 
CHANGE SW (L) ? no default 


ENABLE TIME OF DAY CLOCK (L) N ? 
INPUT HOUR IN 24 HOUR FORMAT (OMIT LEADING ZERO) (D) 0 ? 
INPUT MINUTES COMIT LEADING ZERO) (D) 0 ? 

CHANGE CONTROLLER PARAMETERS (L) N ? 

ENABLE CONTROLLER ERROR CORRECTION (L) Y ? 
ENABLE CONTROLLER ERROR RECOVERY (L) Y ? 
ENABLE PAD BLOCKING (L) Y ? 

CHANGE PRINTING PARAMETERS (L) N ? 

ENABLE SOFT ERROR REPORT PRINTING (L) N ? 
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296 ENABLE READ SOFT ERRORS ONLY (L) Y ? 
297 CLEAR MEDIA TABLE ON EVERY PASS (L) N ? 
298 ENABLE PRINTING OF MEDIA DEFECTS TABLE (L) N ? 
299 ENABLE PROGRAM VARIABLES DUMP ON ERROR (L) N ? 
300 ENABLE CLEAR STATS ON FATAL ERROR (L) N ? 
301 CHANGE TEST PARAMETERS (L) N ? 
302 DATA PATTERN (D) 0 ? 
303 RUN TEST 3 ONLY (L) Y ? 
- 304 ENABLE DATA COMPARES IN TEST 5 (L) Y ? 
305 ENABLE PRINT READ BUFFER IN TEST 5 (L) N ? 
oF CHANGE COMMAND SEQUENCE (L) N ? 
308 
309 
1 2.3.1 Definition Of Software Questions - 
11 
312 
oy ENABLE TIME OF DAY CLOCK (L) N ? 
14 
315 The default is to not enable the clock. This question allows the 
316 operated to start a program clock to track time on a 24 hour basis 
317 during the running of the program. The clock will remain fairly 
318 accurate as long as the program is running. Any time you stop the 
319 program the clock will stop running. It is therefore necessary to 
320 s reset the time whenever the program is started. 
3 
323 INPUT HOUR IN 24 HOUR FORMAT COMIT LEADING ZEROS) (0D) 0 ? 
324 
44 Input the hour in @ decimal number leaving off any leading zeros. 
327 
=. INPUT MINUTES COMIT LEADING ZEROS) (L) 0 ? 
29 ia, 
oy Input the minutes in a decimal number leaving off any leading zeros. 
1 
332 
333 
334 : 
335 CHANGE CONTROLLER PARAMETERS (L) N*? 
336 
337 The default answer (no) prohibits the asking of the controller 
a parameter questions. To change the controller parameters type a Y 
3 
340 ENABLE CONTROLLER ERROR CORRECTION (L) Y ? 
341 
342 If answered “yes” (default) the program will enable the controller's 
or error correction algorithms for read errors. 
4 
345 
~e ENABLE CONTROLLER ERROR RECOVERY (L) Y ? 
47 
348 ‘ If answered “yes” (default) the program will enable the controller's 
_ error recovery algorithms for write and read errors. 
0 
351 


352 * ENABLE PAD BLOCKING (L) Y ? 
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If answered “yes” (default) the program will enable the controller's 
pad blocking algorithms to assist in streaming 


CHANGE PRINTING PARAMETERS (L) N ? 


The default answer (no) prohibits the asking of the printing parameter 
questions. To change the printing parameters type a Y. 


ENABLE SOFT ERROR REPORTS (L) N ? 


The default answer (no) inhibits the printing, but not the tallying of 
soft errors as reported by the subsystem. Answering the question 
“yes” will result in detailed error reports on the terminal for each 
recoverable data error. 


ENABLE READ SOFT ERRORS ONLY (L) N ? 


This question will only be asked when the above question is answered 
no. This question allows the operator to enable print outs on read - 
soft errors only. The default answer is to inhibit all soft error 
printouts. 


CLEAR MEDIA TABLE ON EVERY PASS (L) N ? 


The default answer (no) allows the tallying of media defects over 
multiple passes. By answering the question yes, the operator can then 
print the table on every pass and see how the defects are affected by 
passing over the heads. 


ENABLE PRINTING OF MEDIA DEFECTS TABLE (L) N ? 


The default answer (no) inhibits the printing, but not the tallying of 
media defects as reported in the soft error reports by the subsystem. 
If the default answer is used the table may still be printed by giving 
the PRINT command at the supervisor prompt (DS>) after the termination 
of the program. Answering the question “yes” will cause the printing 
of the table after every pass and after a control C (C) is issued. 


ENABLE CLEAR STATS ON FATAL ERROR (L) N ? 


The default answer (no) allows the accumulation of statistics from 
pass to pass. An answer of “yes” results in the clearing of a devices 
statistical matrix following any error that results in the unit's 
being dropped from the test sequence for the rest of the current pass. 
This action is intended for use primarily by Springfield volume 
manufactur ing. 


ENABLE PROGRAM VARIABLES DUMP ON FATAL ERROR (L) N ? 
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410 

411 This question is intended as a program and subsystem debug tool. 
412 Answering the question “yes” will cause the program to print out the 
413 contents of approximately 1K words of critical memory locations. This 
414 is ea time consuming process and this question should be defaulted 
415 under ordinary circumstances. 

416 

417 

418 

os CHANGE TEST PARAMETERS (L) N ? 

42 

421 The default answer (no) prohibits the asking of the test parameter 
oat questions. To change the test parameters type a Y. 

2 

— DATA PATTERN (0) 0 ? 

42 

426 : This question allows the user to select a data pattern from the table 
427 of patterns provided by the program. (See the Data Pattern section 
428 below.) The default answer, “0”, causes the program to cycle through 
429 ell the data patterns. Answering the question with a number from 1-5 
430 will causes the program to use that pattern only. A number higher 
431 than 5 will cause the question to be repeated. 

432 

433 

= RUN TEST 3 ONLY (L) Y ? 

435 

436 Answering this question “Y" (default) will automatically cause the 
437 program to run test 3 only; i.e., it will no longer be necessary to 
438 use the /TES:3 switch to the start command. Please note that this 
439 question will effectively override the /TES: switch if the user 
440 wishes to run a test other than 3. That is, if the user wants to run 
441 test 4 he must specify the /TES:4 switch AND answer this question "N”. 
442 
443 
444 ENABLE DATA COMPARES IN TEST 5 (L) N ? 

445 

446 The default answer (no) disallows the data compare function during 
447 test 5. This would have to be the case when running with a truly 
448 unknown tape. The option (yes) is given to the operator so that when 
449 a tape is written in a known manner using this program the operator 
450 can then run test 5 using data compares. 

451 

452 

453 ENABLE PRINT READ BUFFER IN TEST 5 (L) N ? 

454 

455 Answering this question “yes” will cause a printout of all data read 
456 from tape in test 5. The data will be presented on a record basis. 
457 This is a time consuming process, and this question should be 
458 defaulted except in special cases. 

459 

460 CHANGE COMMAND SEQUENCE (L) N ? 

461 

462 Answering this question “Y” will cause the program to prompt the user 
463 for ea sequence of commands to be used in Test 7. (See Test 7 below.) 
464 If defaulted, this is the last software question asked. 

465 

466 
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467 

roe 2.4 Conversation Mode Test Questions 

46 

470 Answering of these question is optional. These questions will 
471 not be asked unless the operator has answered the CHANGE COMMAND 
472 SEQUENCE question with a yes. A total of seven commands may be 
a entered by the operator. 

474 

475 Test 7 is intended to give the user the ability to create a 
476 specific sequence of commands. Note that Test 7 will not support the 
477 entire TMSCP command repertoire, it is limited primarily to the tape 
478 motion commands. To run Test 7, the user must issue a STA/TES:7 and 
479 must answer "Run Test 3 Only” with a N(O). The user must also answer 
480 “Change Command Sequence” with a Y (yes). Understand that the program 
481 does not check for legality of command sequences issued by the user, 
a the onus is on the user to perform this check. 

484 The following questions will be asked by the program to prompt 
485 the user for his input. 

486 

487 

ried CMD/1 (0) 160 ? 

8 

490 The user enters the octal value for the desired command from the list 
491 shown below. Please note that the command values are those defined by 
492 the diagnostic, not by TMSCP. The default value for the first command 
493 is a rewind. 

494 

495 

496 DATA PATTERN (0) 1 ? 

497 

498 The user should enter the octal value of the desired data pattern from 
499 the table of patterns shown above. If the command does not use a data 
ny pattern, any number entered here is ignored. 

O01 

502 

503 

504 PATTERN # DESCRIPTION 

me 2 > SB oh ere Fe = | eeemeanie 8 9 G+) ceneenanen 

506 

507 0 ROTATE THROUGH ALL DATA PATTERNS 

508 1 ALL 1'S 

509 2 ALL 0'S 

510 3 WORST-CASE MFM PEAK SHIFT (110) 

511 4 ALTERNATE 1‘S AND 0'S 

512 5 RANDOM DATA 

513 6 MW PEAK SHIFT (1110) 

514 7 COMBINATION OF PATTERN 3 AND 5 

515 200 NO DATA PATTERN USED 

516 

517 ITEM COUNT (BYTE, RECORD, OBJECT) (D) 0 ? 

518 

519 The purpose of this field varies with the type of command. For 
520 example, for write and read commands, the user may specify the record 
S21 size, in decimal bytes. If the command is a reposition command, the 
522 user may specify the number of records, objects or file marks. There 
523 are also two special commands provided which use this value in unique 
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ways. For a branch command, the user would specify the command number 
to which (s)he wishes to branch. For the delay command, the value 
entered here is the relative delay length, with larger numbers 
producing longer delays. User experimentation may be required to 
produce desired delay. ¢ 


‘ 
ITERATION COUNT (D) 1 ? - 


This field allows the user to specify how many times the command 
should be issued before the program issues the next command. The 
value is entered in decimal. - : ‘ 


¢ ¢ 


Additional Commends , : c 


This. same ‘sequence of four questions will be repeated. up to 6 moré 
times, allowing the operator tot create’a command table with seven 
unique commands. The only noticeable difference in question format is 
that each time the command question is asked, its relative pgsition in 
the Test 7 command table is identified. = 


2.5 Allowable Commands 


The et pr commands are supported by Test 7. Please remember 
that the octal values are defined by the progrem and have no numerical 
correlation to TMSCP command opcodes. Also note that the diagnostic 
does not check for legality of the value entered or for valid command 
sequences. Operator error in either of these cases could result in 
bizarre program behavior. ” 


a 


Octal Command Description 

10 RD Read forward 

20 WR Write 

30 CMP Compare host data 

40 ACC Access X 

50 SPC Space records 

51 SCR Space records reverse 

60 SKP Skip tape marks 

61 SKR Skip tape marks reverse: 

70 SPO Space ob jects 

71 SPR Space objects reverse 

100 WT™M Write tape mark 

160 REW Rewind 

300 BR Branch - item count specifies destination 
310 DLY Delay - item count specifies relative delay 
377 END End of sequence - necessery if sequence has 


less than 7 commands 


2.6 Supervisor Run Time Flags 


This program will support all of the PDP11 Diagnostic Supervisor 
flags except for those mentioned here. 


LOE - Loop on Error - This flag will not be supported by this program. 


SEQ 11 
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581 Date reliability programs do not lend themselves to implementation of 
or error loops. 

584 IDR - Inhibit Drop Units - This flag will not be supported by this 
585 program due to the devices sequential operation. If an error of fatal 
586 extent happens on the device there is no way to continue running in 
587 any meaningful way. 





aoe 
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3 ERROR INFORMATION 
3.1 Error Reporting 


TKDR provides a variety of information in its error printouts, 
most of which is self-explanatory. The following information is 
intended to clarify certain messages and abbreviations used. 


3.2 Commands 


All error printouts will contain a field indicating the command 
on which the error was detected. Refer to the TMSCP specification for: 
detailed descriptions of these commands. Also, please note that 
commands currently used by TKDR ere indicated by an asterisk. 


RD« read 

WRT* write 

CMP compare host data 
ACC« access 


SPC* space records (position) 
SKP« skip tape marks (position) 
SPO0« space objects (position) 
WTM« write tape mark 

ERS erase 

ERG erase gap 

AVL* avai lable 

ONL* online 


suc set unit characteristics 
REWs rewind (position) 
ABO abort 


GCS«* get command status 
GUS« get unit status 
SCC« set controller characteristics 


The following two “commands” are used by TKDR for special 
purposes and are not actually sent as commands to the subsystem: 


NUL null - used by program to while waiting for last responses 
to real commands 

INT initialize - used by program to invexe the UQ-Port init 
sequence 


3.3 Type Of Error 


Eech error message includes one line of text intended to describe 
the type of error detected. fhere are three distinct sources of 
information used by the program to generate the text message: t 
stetus field of an end packet; an error log packet; and program 
detected error conditions. 


3.4 Stetus Errors 








gee 
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o46 These messages are derived from the status field of an end packet 
647 end correspond directly to the status codes as defined in the TMSCP 
648 specification. 

649 

650 Invalid command issued 

651 Command aborted 

652 Unit offline 

653 Unit available error 

654 Unit write protected 

655 Data compere error 

656 Date error 

657 Host buffer access error 

658 Controller error 

659 Drive error 

660 Formetter error 

661 BOT encountered 

662 Tape mark encountered 

663 Data record truncated 

664 Position lost 

665 Serious exception 

666 Logical EOT encountered 

667 

668 

669 

th 3.5 Error Log Packets 

671 

672 Certain messages will be generated as a result of receiving the 
ky "diagnostic mode” error log packet. 

674 

675 Retriable Data 

676 Hard CRC 

677 Data Underrun 

678 Data Overrun 

e676 ECC Corrected 

6ou CRC Error on ECC Block 

681 

682 

683 

684 

685 3.6 Program Detected Error Conditions 

686 

687 In addition to reporting errors detected by the subsystem, TKDR 
688 may generate additional error reports based on problems it detects. 
689 These error conditions are presented and defined here. 

690 

691 Invalid status received - the contents of the status field of an end 
692 packet is not a valid status as defined by 
693 TMSCP 

694 

695 Port-detected error - examination of the SA register indicated an 
696 error condition exists within the controller 
697 

698 Program command timeout - the program received no end packet from the 
699 subsystem within the predefined command time- 
700 out. 

701 

792 Response out of sequence - the program received an end packet for a 
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sequential command other than the oldest out- 


standing command. 


Port initialization failed - the port failed to make an expected step 


transition during the UQ-Port init sequence. 


Software data compere - the program's data compare routine detected a 


miscomparison of read data to expected data. 


Record length short . the data record read from tape was shorter than 


3.7 Drive Errors 


the record length expected. 


On occurrence of a Drive Error, status code of 13(8), the error 


log packet will now contain a status code which is the drive error 
byte as returned by the drive. This value will be placed in the DRV 
CODE field of the error log packet. 


To understand the precise nature of the error condition it will 


be necessary to correlate tne value presented in the printout against 


the table below. 


Octal 


Hex 


Description 


Write lock violation 

Drive fault 

Communication exception (timeout, etc.) 
Wrong track error (following a turnaround) 
No cable or drive powered off 
Synchronization failure - write/read 


Failure to load to BOT 

Failure to unload tape into cartridge 
General motor or tach failure 

Motor A failure 

Motor 6 failure 

Drive lost control of tape or bad tach 
Excessive drag in tape transport 
Failure to stop tape or remain stopped 
Cartridge insert error 

Cartridge extract error 

CU attempted to move tape with drive in error 
Deceleration timeout error 

Second attempt to balance reels in init failed 
8155 RAM memory failure in self-test 
8155 timer failure 

Read amplit (Hd 1) too low in calibrate 
Read amplit (Hd 2) too low in calibrate 
EOT sensed in R/W/S 

BOT sensed in R/W/S 

Drive block address overflow 
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760 230 98 Drive block address underflow 

761 231 99 Servo error - excessive speed variations 

762 231 Of Failure in tracking - currently not used 

763 233 9B Command error - not recognized 

764 234 9C Illegal command - incompatible with drive state 
765 235 9D Write lock error 

766 236 9E Write gate at wrong time 

767 237 oF No write gate for calibration track write 
768 240 AO Error sensing cal track 1 - bad head? 

769 241 Al Error sensing cal track 2 - bad head? 

770 242 A2 Detection of edges of cal trk 1 out of spec 
771 243 A3 Detection of edges of cal trk 2 out of spec 
772 244 A4 Offset of cal trk 2 from 1 is too great 

773 245 AS Search for bottom edge of tape failed 

774 246 A6 Bottom tape edge tolerance error 

775 247 A7 Drive is overheating 

776 

777 250 A8& No current in LED of BOT sensor (cable?) 

778 251 AQ Hall switch sense lines Motor A questionable 
779 252 AA Tachometer failure 

780 

781 3.8 Hard Error Reports 

782 

783 Hard error reports, if not user disabled, will be generated 
Le anytime an error recovery process does not successfully complete. 
85 

786 Hard Error reports will typically be of the following format: 
787 

788 CZTKB HRD ERR 00014 ON UNIT 00 TST 003 SUB 000 PC: 020460 
789 HARD DATA ERROR 

790 COMMAND: RD T/MSCP UNIT: 000(0) 

791 PASS: 10D) DATA PAT: 01(0) 

792 RECORD BYTE COUNT: 457(D) 

793 OBJECT CNT : 000000026352(0) 

794 

795 RESPONSE PACKET 

796 HIGH WORD LOW WORD 

797 000000(0) 026532(0) 

798 000000( 0) 000000(0) 

799 000050(0) 010240(0) 

800 000000(0) 000733(0) 

801 000000( 0) 000000(0) 

802 000000(0) 000000(0) 

803 000900(0) 000000(0) 

804 000000(0) 001413(0) 

805 000000(0) 000733(0) 

806 

807 NOTE 

808 

809 Some error reports will not include a Response Packet 
810 Field. For example a Command Timeout Error, by 
811 definition, results only when no response to a command 
812 has been received prior to expiration of the programs 
813 watch dog timer. 

814 

815 

816 
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3.9 Soft Error Reports 


Soft error reports, if mot user disabled, will be generated 
anytime an error recovery process is successful. The soft error 
report will include the number of retries necessary in order to 
successfully complete the current operation. Soft Error reports will 
typically be of the following format: 


CZTKB SFT RD ERR 00014 ON UNIT 00 TST 003 SUB 000 PC: 020460 
ECC RECOVERED DATA ERROR 

COMMAND: RD T/MSCP UNIT: 000(0) 

PASS: 1(D) DATA PAT: 01(0) 

OBJECT CNT : 000000026352(0) 

TAP OBJ CNT: 000000026352(0) 

TRK NUM: 6(D) LEVEL: 0O(D) RETRIES: 1(D) 

LOG BLK NUM: OCD) PHYS BLK NUM: 9932(D) 


DRV CODE: 000(0) ORV FLGS: 041(0) 
DRV STATE: 000000(0) INTERN STATUS: 002(0) 
TAP CNT O: 227(0) TAP CNT 1: 915(0) 


TAP CNT 2: 035(0) RD/WR STATE: 000000(0) 
OPER FLGS: 000000(0) 
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4 PERFORMANCE AND PROGRESS REPORTS 
4.1 Statistics Matrix 


SOFT DATA ERRORS 
RETRY RECOVERED 
ECC CORRECTED 

HARD DATA ERRORS 

CRC ON ECC BLOCK 

DATA COMPARE ERRORS Xx 

DATA UNDERRUN N.A. 

DATA OVERRUN X 

MISPOSITIONS X 

OTHERS X 

TIMES DROPPED X 

BYTES WRITTEN X, XXX, XXX, XXX 

BYTES READ X, XXX, XXX, XXX 


TRK PHY BLK HWR HRD SWR SRD 
0 26 0 0 


<< KC OK 
<< OK OK 


1 0 
0 0 0 1 0 
1 126 0 0 1 0 
1 0 0 1 0 


4.2 Read Error Definition 


1. SOFT DATA ERRORS 


O Retry Corrected - ECC disabled or repositioning 
required because >1 block im ECC group was bad. 


O ECC Corrected - CRC error occurred on data block but 
has corrected it 
2. Hard Data Errors - Maximum retries exhausted and data 


recovered. 


3. CRC Error on ECC Block - Data was read successfully, but 
error occurred 





ECC 


not 


CRC 


4. Date Compare - No hardware detected errors, but the data 


compare failed. on an associated ECC block. 


5. Data Overrun - The controller did not have sufficient buffer 


space for read data. 





wo. 
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898 4.3 Write Error Definition 
899 
900 
901 1. Retry Recovered - Operational write algorithm was enabled and 
902 controller successfully recovered from a write error. (In 
903 this case, media-induced write errors will appear in this 
904 category.) 
905 
906 2. Hard Data Errors - Write retries exhausted and block not 
od successfully written. 
909 3. Underrun - Controller ran out of write data blocks prior to a 
910 record boundary. 
911 
912 
913 
914 
915 4.4 Miscellaneous 
916 
917 
o> 1. Mispositions - Times the drive lost position on tape. 
1 
920 2. Others - This is a tally of all errors not specifically 
a called out in the error matrix. 
22 
923 3. Times Dropped - Times the drive has been dropped by the 
he program. 
92 
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927 
928 
929 
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5 TEST DESCRIPTIONS 







5.1 Test 1 Basic Function Test 
This test will execute a subset of the available commands on the 
unit under test. It serves as a quick verify test to ascertain that 
the unit can move tape and write/read predictably, without error. The 
subset of legel commands will be issued in a coherent manner. 
The testing sequence, performed once will be as follows: 
1. Execute online 
Rewind to ensure that tape is at BOT, 
Write two tapemarks, just after BOT, 
Backspace two tapemarks, 
Space forward to LEOT, 


Rewind, 


vn oOo uw S&S WwW 


Write, using increasing byte counts, rotating through all 
data patterns, using decreasing file lengths. Files to be 
separated by tape marks. 





8. Write LEOT after previous sequence, 

9. Rewind, 

10. Read records of the first file, 

11. Space records over the second and third files, 
12. Space objects over the fourth file, 

13. Read records of the fifth file, 

14. Skip reverse over four tape marks, 

15. Skip forward one tape mark, 

16. Read the second file set, 

17. Space objects over the third record set, 
18. Read the fourth record set, 

19. Space objects to LEOT, 

20. Space objects reverse to Just after BOT, 
21. Skip four tape marks, 


22. Space records over the fourth record set, 
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ae 23. Skip a tape mark, 

+ 24. Read the sixth record set, 

es 25. Skip two tape marks, 

eee 26. Space objects reverse to the end of the second file set, 
992 27. Skip a tape mark, 

993 

oon 28. Read the third file set, 

996 29. Rewind tape, 

997 

998 

999 5.2 Test 2 Quick Verify Read/Write Test 

1000 
1001 

aoe This test rewinds the tape, then executes the following sequence: 
1004 1. Write record set, 
1005 
1006 2. Write LEOT, 
1007 
1008 3. Rewind, 
1009 
rr 4. Reposition to just written record set, 
1 

ety 5. Read the current record set, 
1014 6. Skip to LEOT. 
1015 
1016 for 5 iterations or until fatal error is encountered. This test 
1017 permits retries, fixed record length (4096 bytes decimal), fixed 
1018. number of records/set (250), and predetermined data patterns. This 
1019 test will execute in a round-robin manner. 
1020 
1021 
1022 
1023 5.3 Test 3 Complex Read/Write Test 
1024 
1025 
— This test rewinds the tape, and executes the following sequence: 
1028 1 Write N records, 
1029 

1030 2. Write a tape mark, 

1031 
ae 3. Repeat 1 and 2 until EOT is reached, 

1034 4. Write 2 tape marks (LEOT), 

1035 
1036 5. Rewind, 

1037 

1038 6. Read N records, 

1039 

1040 7. Space 1 record (should see unexpected tape mark) 
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8. Repeat 6 and 7 until LEOT. 


Number of records (N), and record size will be randomly selected. 
This sequence will permit hardware retries, if enabled by the 
operator. This test will rum until EOT, LEOT or fatal error is 
ed All date patterns including random date will be used in 
this test. 


5.4 Test 4 Write Interchange Tape 

This test will rewind the tape, then write until EOT or a fatal 
error is encountered. This test will keep track of the number of 
records and files written. If a fatal error is encountered, a message 


will report it, the tape on the unit will be rewound, and the unit 
prevented from executing further write operations. 


5.5 Test 5 Read Unknown Tape 
This test will rewind a tape, then read until EOT, LEOT or fatal 
error is encountered. This test will keep track of the number of 
records and files read. If a fatal error is encountered, a message 
will report it, the tape on the unit will be rewound, and the unit 
prevented from executing further read operations. 
NOTE 

Tests 4 and 5 can be used to perform a media 

interchange test for multiple drives. The program 

will not attempt to make any determination as to 


whether the unit that wrote the tape or the unit 
reading the tape is at fault for any errors. 


5.6 Test 6 Start/Stop Write/Read Test 


This test rewinds the tape, then executes the following sequence: 
1. Write record set, stopping between each record, 

2. Write a tape mark, 

3. Repeat steps one and two until two tracks have been written, 

4. Write LEOT, 

5. Rewind, 

6. Read the record set stopping between each record, 

7 Skip a tape mark, 

8 


Repeat steps six and seven until LEOT is detected, 
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1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
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9. Rewind. 


Until fatal error is encountered. This test permits retries, fixed 
record length (8096 bytes decimal), fixed number of records/set (250), 
and predetermined data patterns. This test will execute in a 
round-robin manner. 


5.7 Test 7 Conversation Test 


Conversation mode will run with or without error reports. The 
user can select, from a list of commands, a sequence which can be used 
to emulate a known failure mode. Between commands, the user can 
specify unique delays, ranging from 10 to 250 ms. The user can follow 
each tape command with integer values, the first indicating the 
byte/record/file count and the second indicating the # of repetitions 
necessary for that command. 
a 











PARAMETER CODING MACRO YOS.02 Friday 12-Jul-85 09:00 Page 9 SEQ 24 





1123 
1134 - TITLE PROGRAM HEADER AND TABLES 
a oaa -SBTTL PROGRAM HEADER 
1 
1163 000000 -ENABL ABS,AMA 
1164 002000 = 2000 
1166 
1167 002000 BGNMOD 
1168 
1169 p+ 
1170 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
ee ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
g7= 
1173 
itr 002000 POINTER BGNSW,BGNSFT ,BGNRPT,ERRTBL ,BGNDU,BGNSE TUP 
1183 
1184 
1185 002000 HEADER CZTKB,A,0,15000,1,0 
002000 LS$NAME:; sDIAGNOSTIC NAME 
002000 103 «ASCII /C/ 
002001 132 «ASCII /Z/ 
002002 124 -ASCII /T/ 
002003 113 -ASCII /K/ 
* 002004 102 -ASCII /B8/ 
002005 000 -BYTE 0 
002006 000 -BYTE 0 
002007 000 -BYTE 0 
002010 LSREV:: sREVISION LEVEL 
002010 101 -ASCII /A/ 
002011 — L$DEPO:: 30 
c 002011 060 -ASCII /0/ 
002012 LS$UNIT:: sNUMBER OF UNITS 
002012 000001 -WORD TS$PTHV 
002014 L$TIML:: sLONGEST TEST TIME 
002014 015000 -WORD 15000 
002016 L$HPCP:: sPOINTER TO H.W. QUES. 
002016 046244 -WORD LSHARD 
002020 . L$SPCP:: sPOINTER TO S.W. QUES. 
002020 046332 ; -WORD LS$SOFT 
002022 LS$HPTP:;: ;PTR. TO DEF. H.W. PTABLE 
002022 002204 -WORD LSHW 
002024 L$SPTP:: ;PTR. TO S.W. PTABLE 
002024 002212 -WORD LS$SW 
002026 LS$LADP:: :DIAG. END ADDRESS 
002026 115744 -WORD L$LAST 
002030 LS$STA:: sRESERVED FOR APT STATS 
002030 000000 -WORD 0O 
002032 L$CO:: 
002032 000000 -WORD O 
002034 LSDOTYP:: sDIAGNOSTIC TYPE 
002034 000001 -WORD 1 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 4 -WORD 0O 
002040 LSDTP:: :PTR. TO DISPATCH TABLE 
002040 002124 -WORD LSDISPATC 
002042 L$PRIO:: sDIAGNOSTIC RUN PRIORITY 
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002042 000000 «WORD . 0° 

002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 -WORD OO 

002046 LSEXP1:: sEXPANSION WORD 

002046 000000 -,WORD O 

002050 LSMREV:: ;SVC REV AND EDIT #¢ 

002050 004 -BYTE C$REVISION 

002051 000 -BYTE CSEDIT 

002052 LSEF:: ;DIAG. EVENT FLAGS 

002052 000000 -WORD 0 

002054 000000 -WORD O 

002056 L$SPC:: 7 

002056 000000 -WORD O- 

002060 L$DEVP:: ; POINTER TO DEVICE TYPE LIST 
002060 002174 -WORD LS$DVTYP 

002062 LS$REPP:: :PTR. TO REPORT CODE 

002062 034216 -WORD LS$RPT 

002064 LSEXP4:; 

002064 000000 -WORD 0 

002066 LSEXPS:: 

002066 000000 -WORD 0 

002070 LSAUT:: ;PTR. TO ADD UNIT CODE 
002070 000000 «WORD 0 

002072 L$DUT:: . :PTR. TO DROP UNIT CODE 
0C2072 040706 -WORD L$DU 

002074 L$LUN:: ;LUN FOR EXERCISERS TO FILL 
002074 000000 * ,WORD O 

002076 L$DESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 002142 «WORD LS$DESC 

002100 LS$LOAD:: sGENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT E$LOAD 

002102 LSETP:: sPOINTER TO ERRTBL 

002102 013262 -WORD LSERRTBL 

002104 LSICP:: ;PTR. TO INIT CODE 

002104 037012 -WORD LS$INIT 

002106 LSCCP:: ;PTR. TO CLEAN-UP CODE 
002106 040400 -WORD LSCLEAN 

002110 L$ACP:: 3PTR. TO AUTO CODE 

002110 040376 «WORD LS$AUTO 

002112 LSPRT:: ;PTR. TO PROTECT TABLE 
002112 021036 -WORD L$PROT 

002114 LS$TEST:: ;TEST NUMBER 

002114 000000 -WORD 0O 

002116 L$DLY:: sDELAY COUNT 

002116 000000 -WORD 0 

002120 LS$HIME:: ;PTR. TO HIGH MEM 

002120 000000 -WORD 0O 


por 
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1187 -SBTTL DISPATCH TABLE 
1188 
1189 tee 
1190 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
aioe ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
g°=2 
1193 
1194 002122 DISPATCH 7° 
002122 0009007 -WORD | 7 
002124 L$DISPATCH: : 
002124 040722 -WORD Ti 
002126 043124 WORD T2 
002130 043620 WORD T3 
002132 044276 WORD T4 
002134 044656 WORD TS 
002136 045176 WORD T6 
002140 045654 WORD 17 
1195 
1196 
1197 002142 DESCRIPT <CZTKBAO DATA RELIABILITY> 
002142 L$DESC:: 
002142 103 132 124 ong /CZTKBAO DATA RELIABILITY/ 
1198 
1199 3 
1200 3; NAMES OF DEVICES SUPPORTED BY PROGRAM 
1201 ; 
1202 
1203 002174 DEVTYP <TKS50O> 
002174 LS$DVTYP:: 
002174 124 113 065 -ASCIZ s#sTKSOs 
EVEN ‘ 
1204 


Sisae 





| 


ES (NRE «EER A 
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DEFAULT HARDWARE P-TABLE 
1206 -SBTTL DEFAULT HARDWARE P-TABLE 
1207 
1208 gee 
1209 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
1210 : THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
ait ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
te 
1213 
1214 002202 BGNHW = DFPTBL 
002202 000002 -WORD L10000-L$HW/2 
002204 LSHW:: 
002204 OF PTBL 
1215 
1216 002204 174500 174500 TKIP ADDRESS 
1217 002206 000000 0 ;T/MSCP UNIT NUMBER 
1219 002210 ENDHW 
002210 L10000: 
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SOFTWARE P-TABLE 


1249 002232 


1251 002232 
1252 002233 
1253 002234 
1254 002235 
1255 002236 
1256 002237 


1258 002240 
1259 002241 





1260 002242 000000 
1261 002244 000001 


1263 002246 
1264 002247 


1265 002250 004000 
1266 002252 000310 


1268 002254 
1269 002255 
1270 002256 
1271 002260 


1273 002262 
1274 002263 
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-SBTTL SOFTWARE P-TABLE 


ee 


s THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
s PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


ooooroo FFF O COCOoOCO 


BGNSW SFPTBL 
«WORD L10001-L$SW/2 
LSSW:: 
SFPTBL:: 
CLOCK:: BYTE 
HOURS: : BYTE 
MINUTE: : .BYTE 
SeECOND:: .BYTE 
SUBSEC:: .BYTE 
CONTPA:: .BYTE 
SERREC:: BYTE 
SERCOR:: .BYTE 
PADING:: .voITE 
PRNTPA:: .BYTE 
SOERRP: : .BYTE 
ROSOER:: .BYTE 
CLRMED: : .BYTE 
MEDTBL:: .BYTE 
NOCLR:: .BYTE 
DMPFLG:: .BYTE 
T7TBL:: 
TESTPA:: BYTE 
PATERN:: .BYTE 
T3ONLY:: BYTE 
TSCMP: ;: -BYTE 
DMPBUF : : -BYTE 
CHGFLG:: -BYTE 
T7CMD1: .BYTE 
BYTE 
. WORD 
WORD 
T7CMD2: .BYTE 
.BYTE 
. WORD 
WORD 
T7CMD3: .BYTE 
BYTE 
. WORD 
. WORD 
T7CMD4: .BYTE 
BYTE 


sENABLE 


TIME OF DAY CLOCK 


sHOURS FOR TIME OF DAY CLOCK 
sMINUTES FOR TIME OF DAY CLOCK 
sSECONDS FOR TIME OF DAY CLOCK 
sSUBSECONDS FOR TIME OF DAY CLOCK 


; CHANGE 
sENABLE 
sENABLE 
sENABLE 


3 CHANGE 
sENABLE 
sENABLE 
;ENABLE 
sENABLE 
sENABLE 
; ENABLE 


CONTROLLER PARARMETERS 
ERROR CORRECTION FLAG 
ERROR RECOVERY FLAG 
PAD BLOCKING 


PRINT PARAMETERS 

SOFT ERROR REPORT FLAG 

READ SOFT ERRORS ONLY 

CLEAR MEDIA TABLE EVERY PASS 
PRINT MEDIA TABLE CONTENTS 
CLEAR STATS ON FATAL ERROR 
PROGRAM TABLE DUMP ON ERROR 


sCOMMAND TABLE TOP -6 


; CHANGE 
; CHANGE 


TEST PARAMETERS 
DATA PATTERN 


sRUN TEST 3 ONLY 


sENABLE 
sENABLE 
; CHANGE 


sREWIND 


sWRITE RECORDS 


sWRITE TAPE MARK 


sREWIND 


DATA COMPARES IN TEST 5 
READ BUFFER DUMP IN TEST 5 
CMD SEQ TABLE FLAG 





SEQ 28 
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1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 


1297 
1298 


002264 
002266 


002270 
002271 
002272 
002274 


002276 
002277 
002300 
002302 


002304 
002305 
002306 
002310 
002312 
002314 
002314 


0C2314 


177777 
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T7CMDS: 


T7CMD6: 


T7CMD7: 


T7END: 


L10001: 


ENDSW 


ENDMOD 


- WORD 
-WORD 


-BYTE 
«WORD 
. WORD 


-BYTE 
-BYTE 
- WORD 
. WORD 


-BYTE 
-BYTE 
- WORD 
- WORD 


. WORD 
-EVEN 


sREAD RECORDS 
SKP . sSKIP TAPE MARK 


REW ’ REWIND 


SEQ 29 





rr er 
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SOFTWARE P-TABLE 
1301 
1312 .- TITLE GLOBAL AREAS 
aaes -SBTTL GLOBAL EQUATES SECTION 
1389 002314 BGNMOD 
1390 
1391 
1392 57 NT RNS BN SBN ANT ENS ANT ANS ANS RNS ANS BAS NS RNS ANS NT AN RNS AN SANS BN SN ANON 
1393 3; 1.0 SUPERVISOR DEFINED LITERALS 
tes 57 ENT ENS ENS RNS ANS RNS BN NS ANS BN ANS RNS ANS RNS BN SANT BN SANS AN SRN AN SNS AN ON 
1 
1396 
. 1397 pee 
1398 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
1399 ; ARE USED IN MORE THAN ONE TEST. 
1400 s-- 
1401 
1402 002314 EQUALS 
; 
; BIT DIFINITIONS 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
001000 BIT9== BITO9 
000400 BIT8== BITOS8 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4== BITO4 
000010 BIT3== BITO3 
000004 BIT2== BITO2 
000002 BITi== BITOL 
000001 BITO== BITOO 


; EVENT FLAG DEFINITIONS 
;  €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
i 


i ; BIT POSITION IN SECOND STATUS WORD 
000040 EF .START== 32. s (100000) START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. s €040000) RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. s (020000) CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; (010000) A NEW PASS HAS BEEN STARTED 





- SS SSS ss 
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000034 EF .PWR== 28. s €004000) A POWER-FAIL/POWER-UP OCCURRED 
; 


‘ 
; PRIORITY LEVEL DEFINITIONS 





3 
000340 PRIO7== 340 
000300 PRI06== 300 
000240 PRIOS== 240 
000200 PRI04== 200 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIOO== 0 

; 

sOPERATOR FLAG BITS 

; 
000004 EVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 


1403 





NT A Ee SR 
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1405 

1406 

1407 87 RNS ENS RNS RNS ANS RNS ANS RNS ANS ENS ANS RNS ANS NS ANS ANS ANS ANS AN SBN ONSEN ANON 
1408 ; 2.0 TMSCP COMMAND LITERALS 

1409 87 ENS ENT ENS ENS ANS ANS ANS NS ANS ANS ANS RNS ANS NS ANTENA RNS ANS ANS ANS ANS ANS AN AN 
1410 

1411 3 2.1 COMMAND PACKET OPCODES 

1412 000001 OP.ABO == 01 sABORT COMMAND 

1413 000020 OP.ACC == 20 sACCESS COMMAND 

1414 000010 OP.AVL == 10 sAVAILABLE COMMAND 

1415 000040 OP.CMP == 40 sCOMPARE HOST DATA COMMAND 
1416 000013 OP.DAP == 13 sDETERMINE ACCESS PATH COMMAND 
1417 000022 OP.ERS == 22 sERASE COMMAND 

1418 000026 OP.ERG == 26 sERASE GAP COMMAND 

1419 000002 OP.GCS == 02 sGET COMMAND STATUS COMMAND 
1420 000003 OP.GUS == 03 ;GET UNIT STATUS COMMAND 

1421 000011 OP.ONL == 11 ;ONLINE COMMAND 

1422 000041 OP .RD = 41 sREAD COMMAND 

1423 000045 OP.REP == 45 sREPOSITION COMMAND 

1424 000004 OP.SCC == 04 sSET CONTROLLER CHARACTERISTICS COMMAND 
1425 000012 OP.SUC == 12 ;SET UNIT CHARACTERISTICS COMMAND 
1426 000042 OP .WR == 42 ;WRITE COMMAND 

1427 000044 OP.WIM == 44a sWRITE TAPE MARK COMMAND 

1428 000200 OP.END == 200 ;END MESSAGE FLAG 

1429 000100 OP.AVA == 100 sAVAILABLE ATTENTION MESSAGE 
lean 000102 OP.ACP == 102 sACCESS PATH ATTENTION MESSAGE 
1432 3s 2.2 COMMAND MODIFIERS 

1433 040000 MD.CMP == 040000 3; COMPARE 

1434 020000 MD.CSE == 020000 s;CLEAR SERIOUS EXCEPTION 

1435 001000 MD.SEC == 001000 ;SUPPRESS ERROR CORRECTION 
1436 000400 MD.SER == 000400 sSUPPRESS ERROR RECOVERY 

1437 000200 MD.DLE == 000200 ;DETECT LEOT 

1438 000100 MD.IMM == 000100 ; IMMEDIATE 

1439 000040 MD.EXC == 000040 sEXCLUSIVE ACCESS 

1440 000020 MD.UNL == 000020 ; UNLOAD 

1441 000010 MD.REV == 000010 ;REVERSE 

1442 000004 MD.OBC == 000004 ;OBJECT COUNT 

1443 000004 MD.SWP == 000004 ;SET WRITE PROTECT 

1444 000002 MD.RWD == 000002 sREWIND 

1445 000002 MD.ALL == 000002 ;ALL CLASS DRIVERS 

1446 000001 MD.SPD == 000001 ;SPEED 

1447 900001 MD.NXU == 000001 sNEXT UNIT 

1448 

1449 ; 2.3 GENERIC es PACKET OFFSETS 

1450 000000 P.CRF ;COMMAND REFERENCE NUMBER 

1451 000004 P.UNIT == 3 sUNIT NUMBER 

1452 000010 P.OPCD == 10 ;OPCODE 

1453 000012 P.MOD == 12 sMODIFIERS 

1454 000014 P.BCNT == 14 s;BYTE COUNT 

ae 000020 P.BUFF == 20 sBUFFER DESCRIPTOR 

1456 

1457 ; 2.4 ABORT AND GET COMMAND STATUS OFFSETS PACKET OFFSETS 
a 000014 P.OTRF 14 sOUTSTANDING COMMAND REFERENCE NUMBER .- 
1460 5 2.5 ONLINE AND SET UNIT CHARACTERISTICS PACKET OFFSETS 
1461 000014 P.UNFL == 14 sUNIT FLAGS 





SS 
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1462 000034 P.DVPM == 34 sDEVICE DEPENDENT PARAMETERS 

1463 000040 P.FORM == 40 sFORMAT 

1464 000042 P.SPED == 42 ;SPEED 

1465 

1466 ; 2.6 pasa COMMAND PACKET OFFSETS 

1467 000014 P.REDD sRECORD/OBJECT COUNT 

pee 000020 P.TMGC == 20 sTAPE MARK COUNT 

146 he 

1470 3 2.7 SET CONTROLLER CHARACTERISTICS PACKET OFFSETS 

1471 000014 P.VRSN 14 sMSCP VERSION 

1472 000016 P.CNTF == 16 sCONTROLLER FLAGS 

1473 000020 P.HTMO == 20 sHOST TIMEOUT 

1474 000024 P.TIME == 24 sQUAD-WORD TIME AND DATE 

1475 000034 P 


-CTPM == 34 sCONTROLLER DEPENDENT PARAMETERS 
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GLOBAL EQUATES SECTION 


1478 
1479 
1480 


1534 
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000040 
000020 
000010 


000200 
000100 
000040 
000020 


020000 
020000 
010000 
000200 
000040 
000002 
000001 


000000 
000004 
000010 
000011 
000012 
000014 


000034 
000040 


000014 
000020 


000014 
000016 
000024 
000034 
000040 
000042 
000044 
000050 
000051 
000052 
000053 


000044 
000050 








87 RNS ENS ANS ENT ANS ENS ANS ENS ENS ANS ANS ANS ANS RNS ANS RNS ANS ENS ANS RNS ANS ANS ANSON 


; 3.0 


TMSCP END PACKET LITERALS 


57 ENT ENS BNA RNS ANS RNS ENS ENS ONS ENS ANS EN RNS NS ENS ENS ENS RNS ANS ANS ONAN ANSON 


s 3.2 

EF .LOG 
EF .SEX 
EF .EOT 


s 3.2 
CF ..ATN 


vuvUvUUU- 
So 
v 
i] 
o 


vuU- - 
v 
oO 
w 


vvU- 
oO 
—: 
P*] 
nn 


vuUvuUVvVVVVUUUU- 
wn 
v 
m 
o 


vu U- 
= 
xe 
e ] 


END PACKET FLAGS 

ss 000040 sERROR LOG GENERATED 
ss 000020 sSERIOUS EXCEPTION 
ss 000010 sEOT ENCOUNTERED 


CONTROLLER FLAGS 
ss 000200 sENABLE ATTENTION INTERUPTS 


ss 000100 sENABLE MISCELLANEOUS ERROR LOG MESSAGES 
ss 000040 sENABLE OTHER HOSTS ERROR LOG MESSAGES 
se 000020 sENABLE THIS HOSTS ERROR LOG MESSAGES 
UNIT FLAGS 

ss 020000 sWRITE PROTECT CHARDWARE ) 

2s 020000 sVARIABLE SPEED UNIT 

ss 010000 sSOFTWARE WRITE PROTECT 

se 000200 sREMOVABLE MEDIA 

ss 000040 sVARIABLE SPEED MODE SUPPRESSION 

ss 000002 sCOMPARE WRITES 

ss 000001 sCOMPARE READS 

GENERIC END MESSAGE OFFSETS 

ss 0 sCOMMAND REFERENCE NUMBER 

=s 4 sUNIT NUMBER 

ss 10 sENDCODE 

ss 11 sEND MESSAGE FLAGS 

se 12 sSTATUS 

se 14 sBYTE COUNT 


ACCESS ,COMPARE HOST DATA,READ, REPOSITION, WRITE, - 
AND WRITE TAPE MARK END MESSAGE OFFSETS 


== 34 sPOSITION (OBJECT COUNT) 
ss 40 ;TAPE RECORD BYTE COUNT 
GET COMMAND STATUS END PACKET OFFSETS ” 
ss 14 sOUTSTANDING COMMAND REFERENCE NUMBER 
ss 20 sCOMMAND STATUS 
GET UNIT STATUS END MESSAGE OFFSETS 
14 MULTI-UNIT CODE 
ss 16 SUNIT FLAGS 
se 24 sUNIT IDENTIFIER . 
se 34 sMEDIA IDENTIFIER . 
ss 40 sTAPE FORMAT 
ss 42 ;SPEED 
ss 44 sFORMAT MENU 
ss 50 sCONTROLLER SOFTWARE VERSION 
ss 51 sCONTROLLER HARDWARE VERSION 
es 52 sUNIT SOFTWARE VERSION 
ss 53 sUNIT HARDWARE VERSION 
OP.ONL, OP.AVL AND OP.SUC MESSAGE OFFSETS 
ss a4 sMAXIMUM WRITE RECORD SIZE 
os 50 sNOISE RECORD 
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1535 

1536 ; 3.9 REPOSITION MESSAGE OFFSETS 

1537 000014 P.RCSK == 14 sRECORDS SKIPPED 

isse 000020 P.TMSK == 20 sTAPE MARKS SKIPPED 

1 

1540 ; 3.10 SET CONTROLLER CHARACTERISTICS MESSAGE OFFSETS 
1541 000014 P.VRSN == 14 sMSCP VERSION 

1542 000016 P.CNTF == 16 sCONTROLLER FLAGS 

1543 000020 P.HTMO == 20 sHOST TIMEOUT 

1544 000024 P.TIME == 24 sQUAD-WORD TIME AND DATE 





GLOBAL AREAS 
GLOBAL EQUATES SECTION 
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57 RNS ENS ENS ENS ANS RNS ANS BNS ENS ANS NTS BNS ANS RNS ANT ANS ANS EN ANS ANS AN ONS ON ON 


; 4.0 


57 BNT RNS ENS HN ANT ENS ANS NT ANS ANT ANS ENS NTN BN NS ANS BNS AN SENS AN ONS ANON 


; 4.1 

FM.CNT 
FM.BAD 
FM. TPE 


LECCE ll lll FClSCLreC eC CCC CK CCK ere rrrrrre 
© 
v 
oO 
4 












ERROR LOG LITERALS 


ERROR LOG MESSAGE FORMAT CODES 
se 000000 sCONTROLLER ERRORS 


ss 000001 sHOST MEMORY ACCESS ERRORS WITH BUS ADDRESS 
ss 000005 sTAPE TRANSFER ERRORS 

ERROR LOG MESSAGE FLAGS 

os 000200 sOPERATION SUCCESSFUL 

=s 000100 sOPERATION CONTINUING 

es 000001 sSEQUENCE NUMBER REQUEST 

TAPE FORMAT FLAG VALUES 

ss 000001 sNRZI 800 BPI 


se 000002 sPHASE ENCODED 1600 BPI 

ae 000004 sGROUP CODED RECORDING 6250 BPI 
se 000010 36667 BPI 

ERROR LOG MESSAGE OFFSETS 

ee 0 sCOMMAND REFERENCE NUMBER 

ss 4 sUNIT NUMBER 

se 6 sSEQUENCE NUMBER 

es 10 sFORMAT 

ee | oe sERROR LOG MESSAGE FLAGS 

es 12 sEVENT CODES 

es 14 sCONTROLLER ID 

ss 24 sCONTROLLER SOFTWARE VERSION 
oe 2s sCONTROLLER HARDWARE VERSION 
os 26 sMULTI UNIT CODE 

se 30 sUNIT ID 

ss 30 sBUS ADDRESS 

ss 40 sUNTT SOFTWARE VERSION 

ss 41 sUNIT HARDWARE VERSION 

ss 42 sRETRY LEVEL 

ss 42 sFORMAT DEPENDENT 

== 43 sRETRY COUNT FOR THE CURRENT LEVEL 
ss 44 sGAP COUNT 

ss 44 sVOLUME SERIAL NUMBER 

ss 44 sTAPE OBJECT COUNT 

ss 50 sSTI INFORMATION 

ss 50 sFORMATTER HARDWARE VERSION 
se 51 sFORMATTER SOFTWARE VERSION 
ss 52 sCONTROLLER INTERNAL STATUS 
se 53 sDRIVE ERROR CODE 

=e 54 sDRIVE STATE FLAGS 

se 55 sLOGICAL TRACK NUMBER 

se 56 sPHYSICAL BLOCK NUMBER 

ss 60 sLOGICAL BLOCK NUMBER 

ss 61 ;TAPE COUNT 0 

ee 62 sTAPE COUNT 1 

ss 63 sTAPE COUNT 2 

ss 64 sDRIVE STATE 

ss 66 sREAD/WRITE STATE 

ss 70 sOPERATION FLAGS 
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1603 + 4.5 STATUS AND EVENT CODES 

1604 000037 ST.MSK == 37 sSTATUS/EVENT CODE MASK 
1605 000040 ST.SUB == 40 sSUB-CODE MULTIPLIER 

1606 000000 ST.SUC == 0 sSUCCESS 

1607 000001 ST.CMD == 1 sINVALID COMMAND 

1608 000002 ST.ABO == 2 sCOMMAND ABORTED 

1609 000003 ST.OFL == 3 sUNIT-OFFLINE 

1610 000004 ST.AVL == 4 sUNIT-AVAILABLE 

1611 000005 ST.MFE == 5 sMEDIA FORMAT ERROR 

1612 000006 ST.WPR == 6 sWRITE PROTECTED 

1613 000007 ST.CMP == 7 sCOMPARE ERROR 

1614 000010 ST.DAT == 10 sDATA ERROR 

1615 000011 ST.HST == 11 sHOST BUFFER ACCESS ERROR 
1616 000012 ST.CNT == 12 sCONTROLLER ERROR 

1617 000013 ST.ORV == 13 sDRIVE ERROR 

1618 000014 ST.FNT == 14 sFORMATTER ERROR 

1619 000015 ST.BOT == 15 sBOT ENCOUNTERED 

1620 000016 ST.T™M = 16 sTAPE MARK ENCOUNTERED 
1621 000020 ST.ROT == 20 sRECORD DATA TRUNCATED 
1622 000021 ST.POL == 21 sPOSITION LOST 

1623 000022 ST.SEX == 22 sSERIOUS EXCEPTION 

1624 000023 ST.LED == 23 sLEOT DETECTED 

1625 000037 ST.DIA == 37 sINTERNAL DIAGNOSTIC MESSAGE 
coe 000400 ST.ONL == 400 sUNIT ALREADY ONLINE 

1628 000010 EV.LGP == 10 sLONG GAP ENCOUNTERED 

1629 000050 EV.OST == 50 sDATA SYNC TIMEOUT 

1630 000052 EV.CTO == 52 sCOMM CHANNEL TIMEOUT 

1631 000053 EV.SRT == 53 sDRIVE COMMAND TIMEOUT 
1632 000113 EV.SRI == 113 sCONTROLLER DECTECTED TRANSMISION ERROR 
1633 000150 EV.COR == 150 sCORRECTABLE ERROR 

1634 000152 EV.IOS == 152 sINTERNAL INCONSISTENCY ERROR 
1635 000153 EV.SER == 153 s;SOFT ERROR 

1636 000213 EV.HER == 213 sHARD ERROR 

1637 000350 EV.URE == 350 sUNRECORVERABLE DATA ERROR 





oo 
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fe 
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87 ENSENT BN ENS ENS ENS ONS ENS ONS ENS ENS ENS BN SBN BN SENS ENON ENS ONS ON ON ANON 
PROGRAM DEFINED LITERALS 
87 ENSENS RNS ENS ENS ENS ONS ENS ONSEN ONS ENS BANS ENS BN RNS ANS ONS ANON ONS ONS ANON 


TKSA BIT DEFINITIONS 
se 100000 


; 5.0 


DRIVE IN USE TABLE BIT D 
ee 000001 


1/0 ont MESSAGES 


U/Q PORT LITERALS 
se BIT1i5 


PROGRAM 


004000 
000001 
111400 


BIT15 
BIT14 
BITi3 


BIT14 
BITO7 


LITERALS 
177546 
1233 
7622 





EF INITIONS 














sERROR 
sSTEP 1 


:GO0 
;TK5O STEP 1 RESPONSE 


sDRIVE AVAILABLE 
sDRIVE NOT READY 
sDRIVE AT EOT 
sDRIVE DROPPED 
sDRIVE FAILED 


sSUCCESSFUL COMMAND TRANSMISSION 
sNEW RESPONSE RECEIVED 

sERROR LOG PACKET RECEIVED 
sINSUFFICIENT CREDIT TO POST COMMAND 
sGCS RESPONSE NEVER CAME BACK 
sCONTROLLER HUNG 

sPORT DETECTED ERROR 

sCONTROLLER TIME OUT 

sCOMMAND RETURNED IN WRONG SEQUENCE 
sERROR DURING INITIALIZATION 
sILLEGAL COMMAND 


sRESPONSE HANDLED SUCCESSFULLY 
sSERIOUS EXCEPTION CONDITION 
sSYSTEM FATAL ERROR ABORT PROGRAM 


sDESCRIPTOR OWNERSHIP BIT 
sDESCRIPTOR INTERUPT FLAG BIT 
sIMMEDIATE COMMAND FLAG 


sLINE CLOCK REGISTER ADDRESS 
sRANDOM GENERATOR SEED 
sRANDOM GENERATOR SEED 
sRANDOM GENERATOR SEED 

sNO DATA PATTERN NEEDED 
sRANDOM BYTE COUNT 

sMAXIMUM BUFFER SIZE 
sMINIMUM BUFFER SIZE 

sRANDOM ITERATION COUNT 
sMAXIMUM ITERATION SET 
sMINIMUM ITERATION SET 

sALL 1‘S DATA PATTERN 

sALL O'S DATA PATTERN 

sWORST CASE MFM DATA PATTERN 
sALTERNATING 1‘S AND O'S 
sRANDOM DATA PATTERN 





GLOBAL AREAS 
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PAT6 = == 6 
PAT? = == 7 
ENDPAT == 8. 
ALLPAT == 200 
UNTSTP == 2 
HSTIMO == 0 
MSCPVR == 0 
LOBYTE == -2 
HIBYTE == “1 
T2END == 2510 
N = 4 
ONE ss 1 
; 5.7 ERROR MASKING LITERALS 
LEDB == 000001 
ROTB == 000002 
SEXB == 000004 
TMB 2: 000010 
WPRB == 000020 
AVLB == 000040 
ONLB == 000100 

5.8 ERROR TYPE LITERALS 
SYSFAT == 0 
DEVFAT == 1 
HARD === 2 
SOFT == 3 
STATUS == 4 
; 5.9 BIT VALUES FOR LUN FLAG 
INTOON == 000001 
SEREXC == 000002 
NOTALY == 000004 
EOTPR == 000010 
ODDFLG == 000020 
MTBLOV == 000040 
ECCFLG == 000100 
;PROGRAM CONTROL FLAG BIT VALUES 
T7BRFL == 000001 
NCLKFL == 000002 
TCNTFL == 000004 
DRERFL == 000010 
GCSCFL == 000020 
GCSRFL == 000040 
NOMOTB == 000100 
CMDONE == 000200 
DROPIT == 000400 
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31110 REPEATING PATTERN 


sCOMBINATION PATTERN 3 AND 5 


sRANDOM PATTERN VALUE 


sCYCLE THROUGH ALL PATTERNS 


sSTEP THROUGH UNITS 
sHOST TIMEOUT VALUE 
sMSCP VERSION NUMBER 


sLOW BYTE OFFSET FOR COMPARE DATA 
sHIGH BYTE OFFSET FOR COMPARE DATA 
sRECORDS TO FILL 2 TRACKS 


sVALUE USED IN SUBITR 
sBYTE OFFSET 


sDETECT LOGICAL END OF TAPE 


sRECORD DATA TRUNCATED 
sSERIOUS EXCEPTION 
sENCOUNTERED TAPE MARK 
sDRIVE WRITE PROTECTED 
sUNIT AVAILABLE 

sUNIT ONLINE 


sSYSTEM FATAL ERROR 
sDEVICE FATAL ERROR 
sHARD DEVICE ERROR 
sSOFT DEVICE ERROR 
sSTATUS MESSAGE 


sINITIALIZATION HAS BEEN DONE ON THIS UNIT 
sA SERIOUS EXCEPTION CONDITION EXITS 
sDON‘T TALLY BYTES FOR THIS COMMAND 

sEOT PRINTED FOR THIS UNIT 


s00D0 BYTE COUNT FLAG 


sMEDIA STATS OVERFLOW FLAG 
sDON‘T DECREMENT ECC COUNT FLAG 


sBRANCH FLAG FOR TEST 7 
sNO CLOCK PRESENT FLAG 


sCOUNT RECORDS AND TAPE MARKS FLAG 


sDRIVE ERROR FLAG 


sGET COMMAND STATUS COMMAND FLAG 
sGET COMMAND STATUS RESPONSE FLAG 
sDON’T PRINT MEDIA DEFECTS FLAG 
sALL COMMANDS ISSUED FLAG 
sORIVE BEING DROPPED 







GLOBAL AREAS 
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1745 
1746 
1747 
1748 
1749 
1750 
1751 
i7S2 
i753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
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87 ANSON ENS ONSONSONS ON SONS ONS ONS ONS ONS ENS ENS ONS EN/S ONS ENS ONS ONS ONSEN ON/ON 


+ 6.0 PROGRAM OFFSETS 


S7BNSENT ONIONS ONSEN ONSEN ONSEN ON SONS EN SENS ONSEN ONS ONS ONSEN ONS ONS ONSEN 


; 6.1 TEST TABLE OFFSETS 


CMD ee 0. sCOMMAND PRIMITIVE OFFSET 

DATPAT == 1. sDATA PATTERN 

ITMCNT #2 2. sITEM (BYTE) COUNT OFFSET 

ITRCNT == 4. sITERATION COUNT OFFSET 

TSTSTP == 6. sUSED TO STEP THROUGH TEST TABLES 


3; 6.2 we COMMAND BUFFER OFFSETS 


CMD 0 sCOMMAND PRIMITIVE OFFSET 

ITMOFF <== 2. sITEM (BYTE) COUNT OFFSET 

OBOFFL == 4. sLOW ORDER OBJECT COUNT 

OBOFFH == 6. sHIGH ORDER OBJECT COUNT 

XFERST == 8. s TRANSFER STATUS 

BUFOFF == 10. sCOMMAND BUFFER ADDRESS 

PCBSTP == 12. sSTEP TC NEXT SLOT 

PCB3SP == 36. 33 STEPS 

; 6.3 rae DRIVER BUFFER OFFSETS 

HIADOR a. sDESCRIPTOR ADDRESS OFFSET 

CONID == “i. sCOMMAND/RESPONSE CONNECTION TYPE I.D. 
CRD ss “2. sCOMMAND/RESPONSE CREDIT LIMIT OFFSET 
MSGLEN == -4, sCOMMAND/RESPONSE MESSAGE LENGTH 
DRBSTP == 68. sRESPONSE PACKET SIZE (WORDS) 

OCBSTP == 40. sCOMMAND PACKET SIZE (WORDS) 

DCB3SP == 120. 33 COMMAND PACKET SIZE 

DOSPSTP == 4. sPORT DESCRIPTOR SIZE 


; 6.4 MEDIA STATISTICS TABLE OFFSETS 
TRK 0 ;TRACK NUMBER 


PHB ss 2 sPHYSICAL BLOCK NUMBER 

SWR ss 4a sSOFT WRITE ERPOR 

SRD 2s 5 ;SOFT READ ERROR 

HWR 22 6 sHARD WRITE ERROR 

HRD ns 7 sHARD READ ERROR 

VIOFF === 2592. sOFFSET FOR 1 UNIT 

U2OFF == 1296. sOFFSET FOR 2 UNITS 

U3SOFF ss 864. sOFFSET FOR 3 UNITS 

U40FF == 648. OFFSET FOR 4 UNITS 

; 6.6 DRIVE STATUS CODES 

ECCOC == 26 sECC CORRECTION ON DATA BLOCK 
ECCTC == 30 sECC CORRECTION ON A TAPE MARK 
eccec == 36 sCRC ERROR ON ECC BLOCK 


SEQ 40 
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1795 

1? 3: 6.7 
1797 000000 TKIP 
1798 000002 TKSA 
1799 000004 TKUNIT 
1800 000006 CMDSEQ 
1801 000010 SLTUSE 
1802 000012 CMDSSV 
1803 000014 CNUSAV 
1804 000016 COLSAV 
1805 000020 RNUSAV 
1806 000022 ROLSAV 
1807 000024 PATSAV 
1808 000026 LUNFLG 
1809 000030 LEOTFL 
i810 000032 UNDROP 
1811 000034 OB JF OL 
18ie 000036 OB JF DH 
1813 000040 S1READ 
1814 000042 S2READ 
18:5 000044 S1WRIT 
1816 000046 S2WRIT 
1817 000050 ECiCOR 
1818 000052 EC2cor 
1819 000054 HLREAD 
1620 000056 H2READ 
1821 000060 HIWRIT 
1622 000062 H2WRIT 
1623 000064 RTYECL 
1824 000066 RTYEC2 
1825 000070 DTCPER 
1826 00007 UNDRUN 
1827 000074 OVRRUN 
1828 000076 RMSPOS 
1829 000100 WMSPOS 
1830 000102 OTHER 
1831 060104 DROPPD 
1832 000106 NOERR 
1833 000110 ROBYT1 
1834 000112 RDBYT2 
1835 000114 RDBYT3 
1836 000116 RDBYT4 
1837 000120 WRBYTL 
1838 000122 WRBYT2 
1839 000124 WRBYT3 
1840 000126 WRBYT4 
1841 000130 TBLTOP 
1842 000132 TBLBT™ 
1843 000134 LSTENT 
1844 000136 SED1 
1845 000140 SED2 
1846 000142 SED3 
1847 000144 SEED1 
1848 000146 SEED2 
1849 000150 SEED3 
1850 000152 OLDBLK 
1851 000154 OLDTRK 


& SK SS LL 


ss 
se 
2s 
ae 
ss 
ss 
ss 
zs 
zs 
ss 
2s 
ss 
ss 
se 
ss 
= 
ss 
ss 
as 
ss 
ss 
2s 
ss 
ss 
2 
ss 
zs 
ss 
=: 
ss 
a 
ss 
mt 
- 
as 
ss 
ss 
ss 
se 
zs 
ss 
22 
ss 
a 
ss 
a2 
ss 
ss 
= 
fs 
= 
ss 
ss 
ss 





LUN “cag OFFSETS 


2 
4 


















sIP REGISTER ADDRESS 
SA REGISTER ADDRESS 
sTMSCP DEVICE UNIT NUMBER 
sCOMMAND REFERENCE NUMBER 
sBIT MAP OF RESPONSES RECEIVED 
sCOMMAND DESCRIPTOR 

sNEW COMMAND BUFFER POINTER 

s;0LD COMMAND BUFFER POINTER 

sNEW RESPONSE BUFFER POINTER 

sOLD RESPONSE BUFFER POINTER 

sDATA PATTERN 

sINITIALIZATION FLAG 

sUNIT LOGICAL END OF TAPE FLAG 

sUNIT DROP COUNT 

sOBJECT COUNT LOW ORDER 

sOBJECT COUNT HIGH ORDER 

sSOFT READ ERROR CHANNEL 1 

s3SOFT READ ERROR CHANNEL 2 

sSOFT WRITE ERROR CHANNEL 1 

sSOFT WRITE ERROR CHANNEL 2 

sECC CORRECTABLE CHANNEL 1 

sECC CORRECTABLE CHANNEL 2 

sHARD READ ERROR CHANNEL 1 

sHARD READ ERROR CHANNEL 2 

sHARD WRITE ERROR CHANNEL 1 

sHARD WRITE ERROR CHANNEL 2 

sCRC ERROR ON ECC BLOCK CHANNEL 1 
sCRC ERROR ON ECC BLOCK CHANNEL 2 
sDATA COMPARE ERROR 

sDATA UNDERRUN 

sDATA OVERRUN 

sREAD MISPOSITION ERROR 

sWRITE MISPOSITION ERROR 

sOTHER ERRORS 

sTIMES UNIT WAS DROPPED 

NO ERROR 

sHUNDREDS BYTES READ 

s THOUSANDS BYTES READ 

sMILLIONS BYTES READ 

sBILLIONS BYTES READ 

sHUNDREDS BYTES WRITTEN 

s THOUSANDS BYTES WRITTEN 

sMILLIONS BYTES WRITTEN 

sBILLIONS BYTES WRITTEN 

sTOP OF MEDIA STATS TABLE 

sBOTTOM OF MEDIA STATS TABLE 

sFIRST FREE SLOT IN MEDIA STATS TABLE 
sPRIME RANDOM GENERATOR SEED 

sPRIME RANDOM GENERATOR SEED 

sPRIME RANDOM GENERATOR SEED 

sRANDOM GENERATOR SEED 
sRANDOM GENERATOR SEED 
sRANDOM GENERATOR SEED 

sSAVE OF AST BLOCK IN ERROR 
sSAVE OF LAST TRACK IN ERROR 








ee ee ee 
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1853 000156 URSPBF == 156 sSTART OF THTS UNITS RESPONSE BUFFER 

1854 000160 URBEND == 160 sEND OF THIS UNITS RESPONSE BUFFER 

1855 000162 URDSRG == 162 sSTART OF THIS UNITS RESPONSE DESCRIPTOR RING 

1856 000164 URDEND == 164 sEND OF THIS UNITS RESPONSE DESCRIPTOR RING 

1857 000166 UCDSRG == 166 sSTART OF THIS UNITS COMMAND DESCRIPTOR RING 

1858 000170 UCDEND == 170 sEND OF THIS UNITS COMMAND DESCRIPTOR RING 

1859 000172 LUNSTP == 172 sOFFSET TO NEXT LUN BLOCK 
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000000 
000010 
000011 
000020 
000030 
000031 
000040 
000041 
000050 
000051 
000052 
000060 
000061 
000062 
000070 
000071 
000100 
000110 
000113 
000120 
000130 
000134 
000140 
000150 
000155 
000160 
000163 
000170 
000200 
000210 
000220 
000230 


000001 
000002 
000003 
000004 
000005 











87 BNSENS ONS ENS ENS ENS BN SENS EN SENS ANS ENS ENS RNS AN SBN NS ENS ANS ENS ANS ENS ONSEN 


; 7.0 


PROGRAM PRIMITIVES 


87 ENS ENS RNS BNS ONS ONS ANS ENS ONS ENS BN SENS ANS NS ANS RNS ANS ENS ANS ANS ANSON ANON 


GUS 
scc 


; Vom 
REVBIT 
EOTBIT 
IMMBIT 
UNLBIT 
WPRBIT 


COMMAND PRIMITIVE LITERALS 


COMMAND 


000 sNULL 

010 sREAD 

011 sREAD REVERSE 

020 sWRITE 

030 sCOMPARE HOST DATA 

031 sCOMPARE HOST DATA REVERSE 
040 sACCESS 

041 sACCESS REVERSE 

050 sSPACE RECORDS 

051 sSPACE RECORDS REVERSE 
052 sSPACE TO LEOT 

060 sSKIP TAPE MARKS 

061 sSKIP TAPE MARKS REVERSE 
062 sSKIP TO LEOT 

070 sSPACE OBJECTS 

O71 SPACE OBJECTS REVERSE 
100 sWRITE TAPE MARKS 

110 sERASE 

113 sERASE IMMEDIATE 

120 sERASE GAPS 

130 s AVAILABLE 

134 sAVAILABLE UNLOAD 

140 s ONLINE 

150 sSET UNIT CHARACTERISTICS 
155 sSET UNIT CHARA. W/WRITE PROTECT 
160 sREWIND 

163 sREWIND IMMEDIATE 

170 s INITIALIZATION 

200 sABORT 

210 GET COMMAND STATUS 

220 GET UNIT STATUS 

230 SET CONTROLLER CHARACTERISTICS 
PRIMITIVE MODIFIER LITERALS 

1 sREVERSE MODIFIER 

2 sDETECT LEOT MODIFIER 

3 sIMMEDIATE MODIFIER 

4 sUNLOAD MOIFIER 

5 sWRITE PROTECT MODIFIER 


-_- 
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GLOBAL DATA SECTION 


1920 002502 010272 
1921 002504 010312 


1923 002506 000000 
1924 002576 000000 
1925 002664 005072 
1926 002666 006132 
1927 002670 010316 
1928 002672 010356 
1929 002674 010356 
1930 002676 010376 


1932 002700 000000 
1933 002770 000000 
1934 003056 006132 
1935 003060 007172 
1936 003062 010402 
1937 003064 010442 
1938 003066 010442 
1939 003070 010462 


1941 003072 000000 
1942 003162 000000 
1943 003250 007172 
1944 003252 010232 
1945 003254 010466 
1946 003256 010526 
1947 003260 010526 
1948 003262 010546 


1952 003344 


WS os 2 Ra aca a 





000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 





000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 





-SBTTL GLOBAL DATA SECTION 
BZ RNS ENS ENT ENS ANT RNS ANS RNS ANTS BNS ANS RNS NT BNT NS NS ANS RNS ANS ANS ONS ANS ANON 
; 8.0 PROGRAM AND DRIVER DATA STRUCTURES 

87 ENS BNS ENT ENT ANT RNS ANS ANS ANS ANT ANS RNS ANT NS ENS NS NBN ANS RNS AN BN AN AN 


; 8.1 UNIT LUN BLOCKS 
LUNO:: 1) 





WOR 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DRSPBO 
DRBENO 
RDSRGO 
RDRENO 
COSRGO 
CORENO 
LUN1:: -WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DRSPB1 
DRBEN1 
RDSRG1 
RDREN1 
COSRG1 
COREN1 
LUNe:: -WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DRSPB2 
DRBEN2 
ROSRG2 
RDREN2 
COSRG2 
CDREN2 
LUN3: : -WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DRSPB3 
DRBEN3 
ROSRG3 
RDREN3 
COSRG3 
CDREN3 
; 8.2 PROGRAM COMMAND BUFFERS 
PCMD6F : : -BLKW 24, sPROGRAM COMMAND RING 
PCBEND==. sPROGRAM COMMAND RING END 
DUMPKT: : -BLKW 2. sPROGRAM DUMMY COMMAND PACKET 
DRINUS: : -BLKW 4, sDRIVE IN USE TABLE 
UNTTBL:: -BLKW 8 s;TEMPORY MEDIA STAT STORAGE 
; 8.3 PROGRAM VARIABLES 
CMDCNT: : -WORD O sCOMMAND COUNT 
RSPCNT:: -WORD 0O sRESPONSE COUNT 
COUNT: : -WORD 0 s;COMMAND LOOP COUNTER 
RESPON: : -WORD 0 sRESPONSE STATUS 
BRCNT se -WORD O sBRANCH COUNTER 
HNDLRP: : -WORD 0O sNUMBER OF RESPONSES 


GLOBAL AREAS 
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GLOBAL DATA SECTION 


1988 0C3524 
1989 003526 


1991 003530 
1992 003532 
1993 003534 
1994 003536 
1995 903540 


1997 003542 
1998 003544 
1999 003546 
2000 003550 
2001 003552 


2003 003554 
2004 003556 
2005 003560 
2006 003562 
2007 003564 





RESP:: 
BYTES:: 
ITERS:: 


BUFADR:: 
SUBCNT: : 


RANWRD: : 


RAN1L:: 
RAN2: = 
RAN3:: 


SAVDIF:: 
TSTMSK: : 
WRKMSK: : 


CMPERR: : 
BYTADD:: 


TBLEND 
DATBL:: 


PCFLAG:: 


SECRNS: : 
TBLOFF:: 
RECCNT:: 


TMCNT: : 
LOHEX: : 


HIHEX: : 
EVENT: : 


R3SAVE:: 
R4SAVE:: 


DAYS:: 
-EVEN 





ooococo 


ooooo oooo0o coo0°o0o0 cooo oF FO COO cCoCOo 


o oO 


sDRIVER RESPONSE COUNT 
sBYTE COUNT 

sITERATION COUNT 
sCOMMAND BUFFER ADDRESS 
sSUB-ITERATION COUNT FOR DATA COMPARES 


sUSED BY RANGEN 

sSEED WORK LOCATION 
sSEED WORK LOCATION 
sSEED WORK LOCATION 


sCOMMAND AND RESPONSE COUNT DIFFERENCE 
sTEST LOAD WITH ACCEPTABLE ERROR CODES 
sUSED BY ERROR DECODE 


sNUMBER OF BYTES IN ERROR 

sSAVE TABLE FOR BYTE IN ERROR ADDRESS 
sEND OF BYTE ADDRESS TABLE 

sSAVE TABLE FOR BYTE IN ERROR DATA 
PROGRAM CONTROL FLAGS 


sOBJECT COUNTER FOR TEST 2 
sPASS COUNTER 

sNUMBER OF DROPPED UNITS 
sCOUNT OF UNITS AT EOT 


sUSED FOR TEMP STORAGE 
sUSED FOR TEMP STORAGE 
sUSED FOR TEMP STORAGE 
sUSED FOR TEMP STORAGE 
sUSED FOR TEMP STORAGE 


sSERIOUS EXCEPTION CMD REF # 
sMEDIA ERROR TABLE OFFSET 
sNUMBER OF RECORDS 
sNUMBER OF TAPE MARKS 
s;LOW ORDER HEX DIGIT 


sHIGH ORDER HEX DIGIT 
sEVENT CODE STORAGE 

sSAVE LOCATION FOR R3 
sSAVE LOCATION FOR R4 
sNUMBER OF DAYS IN RUN 










GLOBAL AREAS 


2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 


007172 
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87 RNS RNS RNS ENS ANS RNS ANS BNA ANS ENS BN RNS ENS RNS ANS ANS NS ENS ANS RNS ANS ANS ON ON 
; 9.0 TMSCP CLASS AND PORT DRIVER DATA STRUCTURES 








57 ENT ENS RNS ENS ANS RNS ANS ENS BENS RNS BANS ENS NS RNS ANS ENS ONS BNA ANS RNS RNA N/R 


; 9.1 CLASS DRIVER a 
K ° 


CMOBF1:: -BL 2 
DCMD6BF : : -BLKW 18. 
CMDBFe:: -BLKW 20. 
CMDBF3:: -BLKW 20. 
CMDBF4:: -BLKW 20. 
RSPBFO:: -BLKW 2. 
DCBEND: : 
DRSPBO:: -BLKW 270. 
RSPBF1:: -BLKW 2. 
DRBENO: : 

ORSPB1:: -BLKY 270. 
RSPBFe:: -BLKW 2. 
DRBENI: : 

DRSPB2:: -BLKW 270. 
RSPBFS:: -BLKW 2. 
DRBEN2: : 

ORSPBS:: -BLKW 270. 


sDRIVE COMMAND BUFFER 1 
sDRIVER COMMAND BUFFER 

sDRIVE COMMAND BUFFER 2 
sDRIVE COMMAND BUFFER 3 
sDRIVE COMMAND BUFFER 4 


;TOP 4 LOCATIONS 


OF RESPONSE 


sEND OF COMMAND BUFFER 


sDRIVER RESPONSE 


TOP 4 LOCATIONS 
sEND OF RESPONSE 
sDRIVER RESPONSE 


TOP 4 LOCATIONS 
sEND OF RESPONSE 
sDRIVER RESPONSE 


TOP 4 LOCATIONS 
sEND OF RESPONSE 
sDRIVER RESPONSE 


BUFFER UNIT 
OF RESPONSE 


BUFFER UNIT 0 
0 
BUFFER UNIT 1 


BUFFER UNIT 0 


BUFFER UNIT 
OF RESPONSE 


1 
BUFFER UNIT 2 


BUFFER UNIT 1 


BUFFER UNIT 


OF RESPONSE 
BUFFER UNIT 
BUFFER UNIT 





2 
SUFFER UNIT 3 
: 





GLOBAL AREAS 


2039 010226 
2040 010232 
2041 010232 
2042 010272 
2043 010272 
2044 010312 


2046 010312 
2047 010316 
2048 010356 
2049 010356 
2050 010376 


2052 010376 
2053 010402 
2054 010442 
2055 010442 
2056 010462 


2058 010462 
2059 010466 
2060 010526 
2061 010526 
2062 010546 


2065 010546 
2066 010550 
2067 010552 
2068 010554 
2069 010556 
2070 010560 
2071 010562 


2073 010564 
2074 010566 
2075 010570 
2076 010571 
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000000 
177777 
000000 
000000 
000000 
000000 
000120 


000000 
000000 
000 
004 





; 9.2 U/Q PORT DESCRIPTOR RINGS 
$8 -BLKW 2. 


DSRNGO 


DRBENS: : 
ROSRGO:: 
RDRENO:: 
CDSRGO: : 
CDRENO: : 


DSRNG1:: 
RDSRG1:: 
RDREN1:: 
CDSRG1:: 
CDPENIL:: 


OSRNG2: : 
RDSRG2: : 
RDREN2:: 
CDSRG2:: 
CDREN2: : 


DSRNG3:: 
RDSRG3:: 
RDRENS: : 
CDSRG3:: 
CDRENS: : 


-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 





sDESCRIPTOR RING UNIT 0 

sEND OF RESPONSE BUFFER UNIT 3 
sRESPONSE DESCRIPTOR RING UNIT 0 

sEND OF RESPONCE DESCRIPTOR RING UNIT 0 
sCOMMAND DESCRIPTOR RING UNIT 0 

sEND OF COMMAND DESCRIPTOR RING UNIT 0 


sDESCRIPTOR RING UNIT 1 

sRESPONSE DESCRIPTOR RING UNIT 1 

sEND OF RESPONCE DESCRIPTOR RING UNIT 1 
sCOMMAND DESCRIPTOR RING UNIT 1 

sEND OF COMMAND DESCRIPTOR RING UNIT 1 


sDESCRIPTOR RING UNIT 2 

sRESPONSE DESCRIPTOR RING UNIT 2 

sEND OF RESPONCE DESCRIPTOR RING UNIT 2 
sCOMMAND DESCRIPTOR RING UNIT 2 

sEND OF COMMAND DESCRIPTOR RING UNIT 2 


sDESCRIPTOR RING UNIT 3 

sRESPONSE DESCRIPTOR RING UNIT 3 

sEND OF RESPONCE DESCRIPTOR RING UNIT 3 
sCOMMAND DESCRIPTOR RING UNIT 3 

sEND OF COMMAND DESCRIPTOR RING UNIT 3 


3; 9.3 CLASS AND PORT DRIVER VARIABLES 
IOSTAT: WORD 0 


CMSTSV:: 
GCSREF:: 
CNTHI: : 
TIMER: : 
LOOPS: : 
CNTFLG:: 


PCKSIZ:: 
SAERR: : 
MINLIM:: 
CROLIM:: 


-EVEN 


;WORD 
- WORD 
. WORD 
-WORD 
- WORD 
- WORD 


- WORD 
-WORD 
-BYTE 
-BYTE 


-1 
0 
0 
0 


0 3 
CF. .THS!CF.MSC 


-’ocooo 


31/0 STATUS 

sCOMMAND STATUS FROM GCS HODE 
sGCS COMMAND REFERENCE NUMBER 
sVALUE OF THE HIGH TIMEOUT 
sTIMER VALUE 


sAND MISCELLANEOUS ERROR LOG MESSAGES) 
sPACKET SIZE IN BYTES 
sSA REGISTER SAVE ON ERROR 
sMINIMUM REQUIRED CREDIT LIMIT 
s;DRIVER CREDIT LIMIT 


sCONTROLLER FLAGSCENABLE THIS HOSTS 





GLOBAL AREAS 
GLOBAL DATA SECTION 


010572 
010573 
010574 
010576 
010600 


019700 
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001 
102 
000001 
012213 
013272 


001 
102 
000002 
012246 
013272 


012266 
013272 


001 
102 
000004 
012312 
013272 


012347 
013272 


001 
102 
000006 
012400 
013272 


011502 
013272 


001 
102 
000010 
011525 
013272 


011541 
013272 








; I/0 STATUS ERROR INFORMATION TABLE 


IOERTB:: .BYTE 
. WORD 
- WORD 
- WORD 


-BYTE 
-BYTE 
. WORD 
. WORD 
- WORD 


-BYTE 
- WORD 
- WORD 
- WORD 


-BYTE 
-BYTE 
- WORD 
. WORD 
- WORD 


-BYTE 
-BYTE 


DEVFAT 
OTHER 


1 
CMLSER 
DEVERR 


DEVF AT 
OTHER 
2 

HUNGER 
DEVERR 


DEVF AT 
OTHER 


3 
PORTER 
DEVERR 


DEVFAT 
— 


TIMERR 
DEVERR 


DEVF AT 
OTHER 
5 

SEQER 
DEVERR 


DEVF AT 
OTHER 


6 
INITER 
DEVERR 


; GET COMMAND STATUS FAILED 


; CONTROLLER HUNG 


; PORT DETECTED ERROR 


; PROGRAM DETECTED COMMAND TIMEOUT 


; COMMAND SEQUENCE ERROR 


; ERROR DETECTED DURING INIT 


; PROGRAM DETECTED ERROR INFORMATION TABLE 


CMOT:: .BYTE 
.BYTE 
. WORD 


ABOT:: .BYTE 


OFLT:: .BYTE 


DEVF AT 
io 


CMDER 
DEVERR 


DEVF AT 
ire 


ABOER 
DEVERR 


DEVF AT 
‘ton 


OFLER 
DEVERR 


sINVALID COMMA:. ¥35'VED 


sCOMMAND ABORTED 


sUNIT OFFLINE 


SEQ 48 


GLOBAL AREAS 


2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 


010702 
010703 
010704 
010706 
010710 


010712 
010713 
010714 
010716 
010720 


010722 
010723 
010724 
010726 
010730 


010732 
010733 
010734 
010736 
010740 


010742 
010743 
010744 
010746 
010750 


010752 
010753 
010754 
010756 
010760 


010762 
010763 
010764 
010766 
010770 


010772 
010773 
010774 
010776 
011000 


011002 
011003 
011004 
011006 
011010 


011012 
011013 
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001 
102 
000012 
011556 
013272 


001 
102 
000013 
012135 
013272 


001 
102 
000014 
011603 
013272 


002 
070 
000015 
012464 
013272 


013272 


001 
102 
000017 
012165 
013272 


011715 
013272 


001 
102 
000022 
011731 
013272 


001 
102 


AVLT:: 


IVSTi:: . 


WPRT:: 


CMPT:: 


DATT:: 


HSTT:: 


CNTT:: 


DRVT:: 


FMTT:: 


BOTT:: 


-BYTE 
-BYTE 


OTHER 


DEVERR 
DEVF AT 


DEVERR 
HARD 
DTCPER 
13. 
CMPER 
DEVERR 


DEVERR 
DEVF AT 


DEVERR 
DEVF AT 
OTHER 
DEVERR 
DEVF AT 


OTHER 


DEVERR 


DEVF AT 
OTHER 


sUNIT AVAILABLE ERROR 


sINVALID STATUS RETURNED 


sUNIT WRITE PROTECTED 


sDATA COMPARE ERROR 


sDATA ERROR 


sHOST DETECTED TIMEOUT 


sCONTROLLER ERROR 


sDRIVE ERROR 


sFORMATTER ERROR 


sUNEXPECTED BOT ENCOUNTERED 





SEQ 49 


GLOBAL AREAS 


c— 


011014 
011016 
011020 


011022 
011023 
011024 
011026 
011030 


011032 
011033 
011034 
011036 
011040 


011042 
011043 
011044 
011046 
011050 


011052 
011053 
011054 
011056 
011060 


011062 
011063 
011064 
011066 
011070 


011072 
011073 
011074 
011076 
011100 


011102 
011103 
011104 
011106 
011110 


011112 
011113 
011114 
011116 
011120 


011122 
011123 
011124 
011126 
011130 
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000023 
011751 
013272 


011771 
013272 


001 
102 
000025 
012135 
013272 


012017 
013272 


001 
076 
000027 
012045 
013272 


001 
102 
000030 
012063 
013272 


012105 
013272 


001 
102 
000032 
012135 
613272 


012507 


012421 
013272 





TMT: : 


IvST2:: 


RDTT:: 


POL7:: 


SEXT:: 


LEDT:: 


IVST3:: . 
B 


DCMPT:: . 


RLST:: 


.WORD 
“WORD 
“WORD 


-BYTE 
-BYTE 
- WORD 
. WORD 
- WORD 


-BYTE 
-BYTE 


DEVERR 
DEVF AT 


DEVERR 
DEVF AT 


DEVERR 
DEVF AT 


sUNEXPECTED TAPE MARK ENCOUNTERED 


sINVALID STATS RECEIVED 


sDATA RECORD TRUNCATED 


TAPE POSITION LOST 


sSERIOUS EXCEPTION 


sLEOQT ENCOUNTERED 


sINVALID STATUS RETURNED 


sDATA COMPARE ERROR 


sRECORD LENGTH SHORT ERROR 





SEQ 50 


GLOBAL AREAS 


oe 


011142 
011142 
011143 
011144 
011146 
011150 


011152 
011152 
011153 
011154 
011156 
011160 


011162 
011162 
011163 
011164 
011166 
011170 


011172 
011172 
011173 
011174 
011176 
011200 


011202 
011202 
011203 
011204 
011206 
011210 


011212 
011212 
011213 
011214 
011216 
011220 


011222 
011222 
011223 
011224 
011226 
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013125 


013145 


013103 


000043 
013103 





sERROR LOG ERROR TABLES 


CNTLER: 
-BYTE HARD 
-BYTE  NOERR 
-WORD 29. 
-WORD CNTLEL 
-WORD ERLGER 
BADERL : 
-BYTE HARD 
-BYTE NOERR 
-WORD 30. 
-WORD BADEL 
-WORD ERLGER 
CMPERL : 
-BYTE HARD 
-BYTE DOTCPER 
-WORD 31. 
-WORD CMPEL 
-WORD ERLGER 
ORVERL: 
-BYTE HARD 
-BYTE NOERR 
-WORD 32. 
WORD ORVEL 
WORD ERLGER 
CNTERL: 
BYTE HARD 
-BYTE NOERR 
-WORD 33. 
-WORD CNTEL 
-WORD ERLGER 
LGPERL: 
-BYTE HARD 
-BYTE NOERR 
-WORD 34. 
-WORD LGPEL 
-WORD ERLGER 
RDSTEL: 
BYTE HARD 
-BYTE  HLREAD 
-WORD 35. 
-WORD OSTEL 
-WORD ERLGER 
WOSTEL: 
-BYTE HARD 
-BYTE  HLWRIT 
WORD 


. 35. 
-WORD  OSTEL 


sCONTROLLER (LAST FAIL) ERROR LOG 


sHOST MEMORY ACCSESS ERROR 


sCOMPARE ERROR 


sDRIVE ERROR LOG 


sCONTROLLER ERROR 


sLONG GAP ENCOUNTERED 


sREAD DATA SYNC NOT FOUND 


sWRITE DATA SYNC NOT FOUND 





SEQ 51 
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2308 011230 014502 .WORD  ERLGER 
2310 011232 CORERL : 

2311 011232 003 .BYTE SOFT ;CORRECTABLE WRITE DATA ERROR 
2312 011233 044 BYTE SA WRIT 

2313 011234 000044 -WORD 36. , 

2314 011236 012627 -WORD COREL 

2315 011240 014502 .WORD  ERLGER 

2317 011242 UWEERL : 

2318 011242 002 BYTE HARD ;UNRECOVERABLE WRITE DATA ERROR 
2319 011243 060 -BYTE HIWRIT 

2320 011244 000045 -WORD 37. 

2321 011246 012760 -WORD - UWEEL 

2322 011250 014502 -WORD ERLGER 

2324 011252 RTYERL: 

2325 011252 003 .BYTE SOFT ;SOFT READ ERROR 

2326 011253 040 BYTE S1READ 

2327 011254 000052 -WORD 42. 

2328 011256 012574 -WORD -RTYEL 

2329 011260 014502 .WORD  ERLGER 

2331 011262 UREERL : 

2332 011262 002 BYTE HARD ;UNRECOVERABLE READ DATA ERROR 
2333 011263 054 -BYTE HIREAD 

2334 011264 000046 -WORD 38. 

2335 011266 012740 -WORD - UREEL 

2336 011270 014502 WORD ERLGER 

2338 011272 ECBERL : ‘ 

2339 011272 003 .BYTE SOFT sCRC ERROR ON AN ECC BLOCK 
2340 011273 064 BYTE RTYECI 

2341 011274 000047 -WORD 39. 

2342 011276 013001 -WORD  ECBEL 

2343 011300 014502 -WORD ERLGER 

2345 011302 ECTERL: 

2346 011302 003 BYTE SOFT sECC CORRECTION ON A TAPE MARK 
2347 011303 050 BYTE EC1COR 

2348 011304 000050 -WORD 40. 

2349 011306 012707 -WORD ECTEL 

2350 011310 014502 .WORD ERLGER 

2352 011312 ECDERL: 

2353 011312 003 BYTE SOFT ECC CORRECTION ON A DATA BLOCK 
2354 011313 050 BYTE EC1COR 

2355 011314 000051 “WORD 41. 

2356 011316 012663 -WORD  ECDEL 

2357 011320 014502 -WORD ERLGER 
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GLOBAL TEXT SECTION 
tty -SBTTL GLOBAL TEXT SECTION 
2361 
oot 3; COMMAND PRIMITIVE ASCII 
2364 011322 CMDASC:: 
2365 011322 116 125 114 -ASCIZ ?NUL? sNULL 
2366 011326 122 104 040 -ASCIZ ?RD ? sREAD 
2367 011332 127 122 124 -ASCIZ ?WRT? sWRITE 
2368 011336 103 115 120 -ASCIZ ?CMP? sCOMPARE HOST DATA 
2369 011342 101 103 103 -ASCIZ ?ACC? sACCESS 
2370 011346 123 120 103 SPCASC: .ASCIZ 2?SPC? sSPACE RECORDS 
2371 011352 123 113 120 -ASCIZ ?SKP? 3SKIP TAPE MARKS 
2372 011356 123 120 117 -ASCIZ ?SP0? ;SPACE OBJECTS 
2373 011362 127 124 115 -ASCIZ ?WTM? sWRITE TAPE MARK 
2374 011356 105 122 123 -ASCIZ ?ERS? ;ERASE 
2375 011372 105 122 107 -ASCIZ ?ERG? sERASE GAP 
2376 011376 101 126 114 -ASCIZ ?AVL? s AVAILABLE 
2377 011402 117 116 114 -ASCIZ ?0NL? ; ONLINE 
2378 011406 123 125 103 -ASCIZ ?SUC? sSET UNIT CHARACTERISTICS 
2379 011412 i22 105 127 -ASCIZ ?REW? s;REWIND 
2380 011416 111 116 124 -ASCIZ ?INT? s INITIALIZE 
2381 011422 101 102 117 -ASCIZ ?AB0? sABORT 
2382 011426 107 103 123 -ASCIZ 2GCS? ;GET COMMAND STATUS 
2383 011432 107 125 123 -ASCIZ ?GUS? ;GET UNIT STATUS 
2384 011436 123 103 103 -ASCIZ ?SCC? sSET CONTROLLER CHARACTERISTICS 
2385 -EVEN 
2386 
2387 sASCII FOR HEXADECIMAL PRINTOUTS 
2338 011442 HEXTBL:: 
2389 011442 060 000 -ASCIZ 20? 3 
2390 011444 061 000 -ASCIZ 21? 8 
2391 011446 062 000 -ASCIZ 22? 3 
2392 011450 063 000 -ASCIZ 23? 3 
2393 011452 064 000 -ASCIZ 24? 3 
2394 011454 065 000 -ASCIZ 25? 3 
2295 011456 066 000 -ASCIZ 26? 3 
2396 011460 067 000 -ASCIZ 27? F 
2397 011462 070 000 -ASCIZ 28? 3 
2398 011464 O71 000 -ASCIZ 29? 3 
2399 011466 102 000 -ASCIZ 2A? 3 
2400 011470 102 000 -ASCIZ 2B? 3 
2401 011472 103 000 -ASCIZ 2C? 3 
2402 011474 104 000 -ASCIZ 2D? 3 
2403 011476 105 000 -ASCIZ ?€? 3 
2404 911590 106 000 -ASCIZ 2F? 3 
2405 EVEN 
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GLOBAL TEXT SECTION 

2407 3 

2408 : FORMAT STATEMENTS USED IN PRINT CALLS 

2409 3 

2410 


2411 011502 111 116 126 CMDER: .ASCIZ /INVALIO CMD ISSUED/ 

2412 011525 103 115 104 ABOER: .ASCIZ /CMD ABORTED/ 

2413 011541 125 116 111 OFLER: .ASCIZ /UNIT OFFLINE/ 

2414 011556 125 116 111 AVLER: .ASCIZ /UNIT AVAILABLE ERROR/ 
2415 011603 125 116 111 WPRER: .ASCIZ /UNIT WRITE PROTECTED/ 
2416 011630 104 101 124 DATER: .ASCIZ /DATA ERROR/ 

2417 011643 110 117 123 BADER: .ASCIZ /HOST BUFFER ACCESS ERROR/ 
2418 011674 103 117 116 CNTER: .ASCIZ /CONTROLLER ERROR/ 

2419 011715 104 122 111 ORVER: .ASCIZ /ORIVE ERROR/ 


2420 011731 106 117 122 FMTER: .ASCIZ /FORMATTER ERROR/ 
2421 011751 102 117 124 BOTER: .ASCIZ /BOT ENCOUNTERED/ 
2422 OL1771 124 101 120 MER: -ASCIZ /TAPE MARK ENCOUNTERED/ 


2423 012017 104 101 124 ROTER: .ASCIZ /DATA RECORD TRUNCATED/ 

2424 012045 120 117 123 POLER: .ASCIZ /POSITION LOST/ 

2425 012063 123 105 122 SEXER: .ASCIZ /SERIOUS EXCEPTION/ 

2426 012105 i14 117 107 LEDER: .ASCIZ /LOGICAL EOT ENCOUNTERED/ 
2627 012135 111 116 126 IVSER: .ASCIZ /INVALID STATUS RECEIVED/ 
2428 012165 110 117 123 HSTER: .ASCIZ /HOST DETECTED TIMEOUT/ 
2429 012213 116 117 040 CMLSER: .ASCIZ /NO RESPONSE TO GCS COMMAND/ 
2430 012246 103 117 116 HUNGER: .ASCIZ /CONTROLLER HUNG/ 

2431 012266 120 117 122 PORTER: .ASCIZ /PORT-DETECTED ERROR/ 

2432 012312 120 122 117 TIMERR: .ASCIZ /PROGRAM DETECTED CMD TIMEOUT/ 
2433 012347 122 105 123 SEQER:: .ASCIZ /RESPONSE OUT OF SEQUENCE/ 
2434 012400 i20 117 122 INITER: .ASCIZ /PORT INIT FAILED/ 

2435 012421 122 105 103 RLSER: .ASCIZ /RECORD LENGTH SHORT/ 

2436 012445 123 124 101 STATER: .ASCIZ /STATUS MESSAGE/ 

2437 012464 104 101 124 CMPER: .ASCIZ /DATA COMPARE ERROR/ 

2438 012507 123 057 127 DCMPER: .ASCIZ ?S/W DETECTED DATA COMPARE? 
2439 012541 104 101 124 UDRNER: .ASCIZ /DATA UNDERRUN/ 

2440 012557 104 101 124 OVERUN: .ASCIZ /DATA OVERRUN/ 

2441 012574 122 105 124 RTYEL: .ASCIZ /RETRY RECOVERED READ ERROR/ 
2442 012627 122 105 124 COREL: .ASCIZ /RETRY RECOVERED WRITE ERROR/ 
2443 012663 105 103 103 ECDEL: .ASCIZ /ECC DATA CORRECTION/ 

2444 012707 105 103 103 ECTEL: .ASCIZ /ECC TAPE MARK CORRECTION/ 


2445 012740 110 101 122 UREEL: .ASCIZ /HARD READ ERROR/ 

2446 012760 110 101 122 UWEEL: .ASCIZ /HARD WRITE ERROR/ 

2447 013001 103 122 103 ECBEL: .ASCIZ /CRC ERROR ON ECC BLOCK/ 

2448 013030 104 101 124 CMPEL: .ASCIZ /DATA COMPARE ERROR LOG/ 

2449 013057 114 117 116 LGPEL: .ASCIZ /LONG GAP ENCOUNTERD/ Py 


2450 013103 104 101 124 DSTEL: .ASCIZ /DATA SYNC TIMEQUT/ 

2451 013125 104 122 111 DRVEL: .ASCIZ /DRIVE ERROR LOG/ 

2452 013145 103 117 116 CNTEL: .ASCIZ /CONTROLLER ERROR LG/ 

2453 013172 103 117 116 CNTLEL: .ASCIZ /CONTROLLER (LAST FAIL) ERROR LOG/ 
2454 013233 110 117 123 BADEL: .ASCIZ /HOST MEMORY ERROR LOG/ 


2456 -EVEN 
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2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 


2482 
2483 


2484 


2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 


2495 
2496 
2497 
2498 


2499 
2500 
2501 
2502 


013262 
013262 
013262 
023264 
013266 
023270 


013272 
013272 
013272 
013272 
013274 
013276 
013302 
013306 
013312 
013316 
013320 
013324 
013332 
013340 
013342 
013342 
013346 
013350 
013354 
013360 
013362 
013364 


013370 - 


013372 
013400 
013402 
013402 
013406 
013410 
013414 
013420 
013422 
013424 
013430 
013432 
013440 
013442 
013442 
013446 
013450 
013454 
013460 
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000000 
000000 
000000 
000000 


010146 
010546 
013703 
013704 
116205 
042705 
006205 
062705 
016237 
042737 
001014 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
000513 
022737 
001014 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
000473 
032737 
001414 


016446 
010546 
012746 
012746 
010600 


003560 
003562 
000000 
177407 
011322 
000000 
177770 
000004 
015770 
000003 
000010 


000001 


000004 
016040 
000003 
000910 
000002 


000004 


016116 
000003 


003530 
003530 


003530 


003530 


-SBTTL GLOBAL ERROR REPORT SECTION 


gee 





; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 


; THAT ARE USED IN MORE THAN ONE TEST. 


IT ALSO INCLUDES THE ASCII MESSAGES 


; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


ERRTBL ;GENERIC ERROR TABLE 
LSERRTBL:: 
ERRTYP:: «WORD O 
ERRNBR: : -WORD O 
ERRMSG: : «WORD 0O 
ERRBLK:: «WORD 0 
BGNMSG DEVERR 
DEVERR:: 
PUSH <R1,R5> sSAVE Ri AND R5 
MOV R1,-(SP) +:PUSH R1 ON STACK 
MOV R5,-(SP) ::PUSH RS ON STACK 
MOV R3SAVE ,R3 sRESTORE R3 
MOV R4SAVE ,R4 sRESTORE R4 
MOVB CMD(R2),R5 ;GET THE COMMAND PRIMITIVE 
BIC #177407,R5 sCLEAR MODIFIERS 
ASR RS ;THE PRIMITIVE 
ADD #CMDASC,RS sPUT ADDRESS IN R5S 
MOV CMD(R2),R8 ;GET THE PRIMITIVE AGAIN 
BIC #177770,R8 ;SAVE THE LAST 3 BITS 
BNE is ;BRANCH IF NOT ZERO 
PRINTB #ERROO,RS, TKUNIT(R4) 
MOV TKUNITC(R4), -CSP) 
MOV RS,-(SP) 
MOV #ERROO, - CSP) 
MOV #3,-(SP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD #10,SP . 
BR 6$ ;GO PRINT THE REST OF THE MESSAGE 
1$: CMP #REVBIT,R8& ;IS IT A REVERSE ? 
BNE 2s ;BRANCH IF NOT 
PRINTB #ERROL,RS, TKUNIT(R4) 
MOV TKUNITC(R4),-CSP) 
MOV R5,-(SP) 
MOV #ERRO1, -(SP) 
MOV #3,-(SP) 
MOV SP ,RO 
TRAP CS$PNTB 
ADD #10,SP 
BR 6$ ;GO PRINT THE RceST OF THE MESSAGE 
2s: BIT #EOTBIT,R8 ;IS IT A DETECT LEOT ? 
BEQ 3$ ;BRANCH IF NOT 
PRINTB #€RRO2,R5, TKUNIT(R4) 
MOV TKUNIT(R4),-(SP) 
MOV R5,-(SP) 
MOV #ERRO2, -(SP) 
MOV #3,-(SP) 
MOV SP ,RO 


SEQ 55 


- 
i) 
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013462 
013464 
2503 013470 
2504 013472 
2505 013500 
2506 013502 
013502 
013506 
013510 
013514 
013520 
023522 
013524 
2507 023530 
2508 013532 
2509 013540 
2510 013542 
013542 
013546 
013550 
013554 
013560 
013562 
013564 
2511 013570 
2512 013572 
013572 
013576 
013600 
013604 
013610 
013612 
013614 
2513 013620 
013620 
013624 
013630 
013634 
013640 
013642 
013644 
2514 013650 
2515 013654 
2516 013656 
013656 
013662 
013666 
013672 
013674 
013676 
2517 013702 
013702 
013706 
013712 
013716 
013722 
013724 


104414 
062706 
000453 
022737 
001014 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
000433 
022737 
001014 


101412 
013746 


016246 
016246 
012746 
012746 
010600 
104414 


000010 
000003 


000004 
016175 
000003 
000010 
000004 


000004 


016253 
000003 


000010 


000004 


016332 
000003 


000010 


000024 
003522 
016411 
000003 


000010 
011346 


003416 
016461 
000002 


000006 


000004 
000006 
016521 
000003 


003530 


003530 


33: 


4$: 


5$: 


63: 


7$: 





CSPNTB 
#10,SP 
6$ :GO PRINT THE REST OF THE MESSAGE 
aliases sIS IT A IMMEDIATE ? 

$ 


sBRANCH IF NOT 
#ERROZ RS, TKUNIT(R4) 
TKUNITCR4),-CSP) 
RS, -(SP) 
#ERROZ, -( SP) 
#3,-(SP) 
SP ,RO 
C$PNTB 


#10,SP 
6$ sGO PRINT THE REST OF THE MESSAGE 
— sIS IT A UNLOAD ? 


BRANCH IF NOT 
#ERRO4 RS, TKUNITC(R4) 
TKUNITCR4),-CSP) 
RS, -(SP) 







6$ :GO PRINT THE REST OF THE MESSAGE 
#ERROS ,RS, TKUNIT(R4) 
TKUNIT(R4),-CSP) 

R5, -(SP) 


PATSAV(R4),-(CSP) 
PASCNT, -(SP) 
#ERROG , - (SP) 

#3, -(SP) 

SP ,RO 

C$PNTB 

#10,SP 
#SPCASC,RS :IS IT A DATA TRANSFER ERROR ? 
7$ 3NO, DON'T PRINT THE BYTE COUNT 
#ERRO7 BYTES sPRINT THE BYTE COUNT 


#ERROB ,OBOFFHCR2), OBOFFL(R2) 
OBOFFL(R2),-(SP) 
OBOFFH(R2),-(SP) 
#ERROB, - (SP) 

#3, -(SP) 

SP ,RO 

C$PNTB 
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013726 
2518 013732 
2519 013740 
2520 013742 
2521 013750 
013750 
013754 
013760 
013764 
013770 
013772 
013774 
2522 014000 
2523 014006 
2524 014010 
2525 014012 
2526 014020 
2527 014022 
014022 
014026 
014032 
014036 
014040 
014042 
2528 014046 
2529 014052 
2530 014056 
2531 014060 
2532 014064 
2533 014066 
014066 
014072 
014076 
014100 
014102 
2534 014106 
014106 
014112 
014116 
014120 
014122 
2535 014126 
2536 014130 
2537 014132 
2538 014136 
2539 014142 
2540 014144 
014144 
014146 
014150 
014154 
014160 
014162 
014164 
2541 014170 
2542 014174 
2543 014200 
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062706 
032737 
001417 
042737 


013746 
013746 
012746 


013746 
012746 
012746 
010600 
104414 
062706 
005037 
105737 
001150 
005737 
001051 


012746 
012746 
010600 
104415 
062706 


012746 
012746 
010600 
104415 
062706 
010305 
010301 
062701 
005763 
100422 


011546 
011146 
012746 
012746 
010600 
104415 
062706 
062701 
062705 
162763 


000010 
000010 


000010 


003552 
003554 
016556 
000003 


000010 
000006 


000003 


010566 
016617 
000002 


000006 
010566 
010546 


003444 
016651 
000001 
000004 
016675 
000001 
000004 


000002 
177774 


016733 
000003 


000°10 
000004 
000004 
000004 


003516 
003516 


010546 


010546 


177774 


8$: 


9$: 
10$: 


PRIPCK: 


#10, SP 
ee 


@DRERFL,PCFLAG 


#ERROI, HIHEX ,LOHEX 


LOHEX, -( SP) 

HIHEX, -( SP ) 

#ERROO, - (SP) 

#3, -(SP) 

SP ,RO 

C$PNTB 

#10,SP 

tamara tia 
$ 


10$ 
#IOPDRE, IOSTAT 
11$ 


#ERR10,SAERR 
SAERR, -( SP) 


#ERR11 


#ERR12,-CSP) 
#1, -(SP) 

SP ,RO 
C$PNTX 

#4 ,SP 

R3,R5 

R3,R1 

#2,R1 
MSGLENCR3) 
CMPPRI 


#ERR13,(R1),(R5) 


(R5),-CSP) 
(R1),-CSP) 
#ERR13,-CSP) 


#4, ;MSGLENCR3 ) 


sWAS IT A DRIVE ERROR ? 
NO, GO PRINT TIME 

sCLEAR THE DRIVE ERROR FLAG 
sPRINT THE DRIVE ERROR CODE 


sIS IT A PORT INIT FAILURE ? 
sKEEP GOING IF IT ISN'T 

:GO PRINT SA CONTENTS 

:IS IT A PORT DETECTED FAILURE ? 
sKEEP GOING IF IT ISN'T 

sPRINT THE SA CONTENTS IF IT IS 


sCLEAR THE ERROR OUT OF THE LOCATION 
sWAS IT AN I/O ERROR ? 

sGET OUT IF IT WAS 

sWAS IT A COMPARE ERROR ? 

GO PRINT THE ERROR DATA 


s;GET POINTER TO RESPONSE PACKET 
sAND A SECOND COPY 

sR1 POINT TO SECOND WORD OF PACKET 
s;CHECK THE MESSAGE LENGTH 

sGET OUT IF IT WENT NEGATIVE 


sGET THE NEXT WORD 
AND AGAIN 
sADJUST MESSAGE LENGTH DOWN 2 WORDS 
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2552 


2553 


2554 
2555 
2556 
2557 
2558 
2559 
2560 


2561 
2562 
2563 


2564 
2565 
2566 


014206 
014210 
014214 
014216 
014220 
014224 
014230 
014234 
014234 
014240 
014244 
014246 
014250 
014254 
014254 
014260 
014264 
014266 
014270 
014274 
014274 
014276 
014300 
014302 
014306 
014310 
014314 
014320 
014322 
014324 
014330 
014334 
014336 
014340 
014342 
014346 
014350 
014350 
014352 
014356 
014362 
014364 
014366 
014372 
014376 
014400 
014400 
014404 
014410 
014412 
014414 
014420 
014424 
014426 
014426 
014430 
014434 
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001353 
005737 
001471 


012701 
012702 
013705 


012746 
012746 
010600 
104415 
062706 


012746 
012746 
010600 
104415 
062706 


005046 
151216 
005046 
156216 
011146 
012746 
012746 
010600 
104415 
062706 
005337 
001405 
005721 
005722 
022701 
001352 


010546 
012746 
012746 
010600 
104415 
062706 
005037 


012746 
012746 
010600 
104417 
062706 
105737 
001421 


005046 
153716 
005046 


003444 


003446 
003472 
003444 
016764 
000001 
000004 
017012 
000001 


000004 


000001 
017062 
000004 


000012 
003444 


003472 


017107 
00C002 


000006 
003444 


020527 
000001 


000004 
002212 


002215 


CMPPRI: 


1$: 


CPRIEX: 


DEVEXT: 


er eS SD 
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PRIPCK sKEEP PRINTING TILL ALL DONE 
CMPERR sWAS THIS A COMPARE ERROR ? 
DEVEXT sGET OUT IF IT WASN'T 
<R2> sSAVE R2 
#BYTADD,R1 sPOINT Ri TO THE BYTE ADDRESS TABLE 
#DATBL ,R2 sPOINT R2 TO THE WRITE DATA TABLE 
CMPERR ,R5 ;sLET RS = THE NUMBER OF BYTES IN ERROR 
#ERR14 
#1 . -(SP) 
SP ,RO 
C$PNTX 
#4 ,SP 
#ERR15 
#ERR1S,-(SP) 
#1 ° -(SP) 
SP ,RO 
C$PNTX 
#4,SP 
#ERR16,(R1),<B,ONECR2)>,<B,(R2)> 
(SP) 


(R2),(SP) 
-(SP) 
ONECR2), (SP) 
(R1),-C(SP) 
#4,-(SP) 


CMPERR sSUBTRACT 1 FROM NUMBER OF ERRORS 
CPRIEX sGO PRINT TOTAL NUMBER IN ERROR 
(R1)+ sPOINT Ri TO THE NEXT ADDRESS 
(R2)+ sPOINT R2 TO THE NEXT DATA 
#TBLEND,R1 sHAVE WE PRINTED THE WHOLE TABLE ? 
1$ NO CONTINUE 

#ERR17,R5 


R5,-(SP) 
#ERR17,-(SP) 
#2, -(SP) 

SP ,RO 

C$PNTX 


CMPERR sCLEAR THE ERROR COUNTER 


CLOCK sIS THE CLOCK ENABLED 
1$ sNO, THEN CAN'T PRINT TIME 
17 DR «<8 .MOURS>, <8 MEMUTE> , <B, SECOND? 


SECOND, (SP) 
~(SP) 
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014436 153716 002214 BISB MINUTE , (SP) 

014442 005046 CLR -(SP) 

014444 153716 002213 BISB HOURS, (SP) 

014450 012746 020044 MOV @TIME, -(SP) 

014454 012746 000004 MOV #4 ,-(SP) 

014460 010600 MOV SP ,RO 

014462 104417 TRAP CSPNTF 

014464 062706 000012 ADD #12, SP 
2567 014470 1$: POP <RS,R1> 
2568 014474 EXIT MSG 

014474 000167 -WORD J$JMP 

014476 000000 -WORD 1L10002-2-. 
2569 014500 ENDMSG 

024500 L10002: 

014500 104423 TRAP C$MSG 
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2571 
2572 


2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 


2583 
2584 
2585 
2586 


2590 
2591 
2592 
2593 


2594 
2595 
2596 


014502 
014502 
014502 
014502 
014504 
014506 
014512 
014516 
014522 
014526 
014530 
014534 
014542 
024550 
014552 
014552 
014556 
014560 
014564 
014570 
014572 
014574 
014600 
014602 
014610 
014612 
014612 
014616 
014620 
014624 
014630 
014632 
014634 
014640 
014646 
014650 
014650 
014654 
014656 
014662 
014666 
014670 
014672 
014676 
014700 
014706 
014710 
014710 
014714 
014716 
014722 
014726 
014730 
014732 
014736 
014740 
014746 
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010146 
010546 
013703 
013704 
113705 
042705 
006205 
062705 
013737 
042737 
001014 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
000512 
022737 
001013 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
032737 
001414 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
000453 
022737 
001014 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
000433 
022737 
001014 


003560 
003562 
003536 
177407 
011322 
003536 
177770 
000004 
015770 
000003 
000010 


000001 


000004 
016040 
000003 


000010 
000002 
000004 
016116 
000003 
000010 
000003 


000004 
016175 
000003 
000010 
000004 





003530 
003530 


003530 


003530 


003530 


003530 


ERLGER:: 


5$: 


10$: 


15$: 


20$: 


BGNMSG 


ERLGER 


<R1,R5> 
R1,-CSP) 
RS,-(SP) 
R3SAVE ,R3 
R4SAVE ,R4 
Rii,R5 
ee 


R 
#CMDASC,RS 
R11,R8 
#177770,R8 
5$ 


#ERROO RS, TKUNITCR4) 
TKUNITC(R4),-(SP) 
RS, -(SP) 


#REVBIT, RS 
10$ 


#ERRO1,RS, TKUNITCR4) 
TKUNITCR4),-CSP) 

RS, -CSP) 

#ERRO1L, -CSP) 
#3,-CSP) 

P,RO 

C$PNTB 

#10, SP 

#€OTBIT, RS 

15$ 
#ERRO? ,RS, TKUNITCR4) 
ee 


30 

#IMMBIT,RS 

20$ 

#ERROS,RS, TKUNITCR4) 
TKUNIT(R4),-CSP) 
RS, -CSP) 

#ERROS, -CSP) 
#3,-(SP) 

SP ,RO 

C$PNTB 

#10,SP 


30$ 
#UNLBIT,R& 
25$ 





s;SAVE R1 AND RS 


3:PUSH R1 ON STACK 
33PUSH RS ON STACK 


sRESTORE R3 
sRESTORE R4 


sGET THE COMMAND PRIMITIVE 


s;CLEAR MODIFIERS 
sTHE PRIMITIVE 
sPUT ADDRESS IN RS 


;sGET THE PRIMITIVE AGAIN 


sSAVE THE LAST 3 BITS 
sBRANCH IF NOT ZERO 


sGO PRINT THE REST OF THE MESSAGE 


:IS IT A REVERSE ? 
sBRANCH IF NOT 


sIS IT A DETECT LEOT ? 
sBRANCH IF NOT 


:GO PRINT THE REST OF THE MESSAGE 


sIS IT A IMMEDIATE ? 
sBRANCH IF NOT 


sGO PRINT THE REST OF THE MESSAGE 


sIS IT A UNLOAD ? 
sBRANCH IF NOT 
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2597 014750 
014750 


— 


2598 
2599 


2600 


2601 
2602 
2603 
2604 


2605 


2606 


2607 


014754 
014756 
014762 
014766 
014770 
014772 
014776 
015000 
015000 
015004 
015006 
015012 
015016 
015020 
015022 
015026 
015026 
015032 
015036 
015042 
015046 
015050 
015052 
015056 
015064 
015066 
015072 
015072 
015076 
015102 
015106 
015110 
015112 
015116 
015116 
015122 
015126 
015132 
015136 
015140 
015142 
015146 
015146 
015152 
015156 
015162 
015166 
015170 
015172 
015176 
015176 
015200 
015204 
015206 
015212 
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016446 
010546 
012746 
012746 
010600 
104414 
062706 
000413 


016446 
010546 
012746 
012746 
010600 
104414 
062706 


001402 
000137 


013746 
012746 
012746 
010600 
104414 
062706 


016246 
016246 
012746 
012746 
010600 
104414 
062706 


016346 
016346 
012746 
012746 
010600 
104415 
062706 


005046 
156316 
005046 
156316 
005046 


000004 
016253 
000003 
000010 


000004 
016332 
000003 
000010 
000024 
003522 


016411 
000003 


000010 
000005 
015476 
003416 
016461 
000002 
000006 
000004 
000006 
016521 
000003 
000010 
000044 
000046 


017146 
000003 


000010 


000043 
000042 





PRINTB 


25$: PRINTB 


30$: PRINTB 


000010 CMPB 


35$: PRINTB 







#ERRO4 ,RS, TKUNITCR4) 
TKUNITC(R4),-CSP) 


30$ :GO PRINT THE REST OF THE MESSAGE 
#ERROS RS, TKUNITCR4) 
TKUNITCR4),-CSP) 

RS, -(SP) 

#ERROS , - (SP) 

#3,-C(SP) 

SP ,RO 

C$PNTB 

#10,SP 

#ERROG ,PASCNT, PATSAV(R4) 
PATSAVC(R4),-CSP) 
PASCNT,-(SP) 


#10, SP 

FM. TPE,L.FMTCR3) :IS IT A TAPE TRANSFER ERROR LOG ? 
35$ sYES, GO PRINT IT 

PKPRNT sNO, PRINT THE ERROR LOG PACKET 
#ERRO7 BYTES sPRINT THE BYTE COUNT 

BYTES, -(SP) 

#ERRO7 , -CSP) 

#2 ,-CSP) 

SP ,RO 

C$PNTB 


#6 ,SP 

#ERROS , OBOFFHCR2), OBOFFL(R2) 
OBOFFL(R2),-CSP) 
OBOFFHCR2),-(SP) 
#ERROS , - (SP) 

#3,-(SP) 

SP ,RO 

C$PNTB 

#10,SP 
#ERLOO,L.PSTN+2(R3),L.PSTNCR3) 
L.PSTNCR3),-(SP) 
L.PSTN+2(R3),-CSP) 
#ERLOO, - (SP) 

#3, -(SP) 


#10,SP 
PES RA. HAE OA AMLEEE BA, EES 
—- 
L.LVLCR3), (SP) 
-(SP) 


GLOBAL AREAS 


015214 
015220 


2608 015240 


2609 015272 


0 
2610 015326 


0 
2611 015360 


2612 aeaeta 


2613 seoeee 


Doe oe ell il i pet tl 
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156316 
012746 
012746 
010600 
104415 
062706 


016346 
005046 
156316 
012746 
012746 
010600 
104415 
062706 


005046 
156316 
005046 
156316 
012746 
012746 
010600 
104415 
062706 


005046 
156316 
016346 
012746 
012746 
010600 
104415 
062706 


005046 
156316 
005046 
156316 
012746 
012746 
010600 
104415 
062706 


016346 
005046 
156316 
012746 
012746 
010600 
104415 
062706 


016346 
012746 
012746 


000055 
017203 
000004 
000012 
000056 
000060 


017301 
000003 


000010 


000054 
000053 


017365 
000003 


000010 


000052 
000064 
017454 
000003 


000010 


000062 
000061 
017540 
000003 
000010 
000066 
000063 
017627 
000003 
000010 
000070 


017713 
000002 


L. TRKCR3), (SP) 
#ERLO1, -(SP) 
#4,-CSP) 


#12,SP 
#ERLO2,<B,L.LBLKC(R3)>,L.PBLK(R3) 
L.PBLK(R3),-(SP) 

-(SP) 

L.LBLKCR3),CSP) 

#ERLO2 , - (SP) 

#3, -(SP) 

SP 


#10,SP 
ee eS ee 


-(SP 
L.OFLG(R3),(SP) 
CSP) 


L.DRVCCR3),(SP) 
#ERLO3, -(SP) 
Pa 


Pp 
#ERLO4,L .DRVSC(R3),<B,L.STSCR3)> 
-(SP) 


L.STSCR3),(SP) 
L.ORVSC(R3),-CSP) 
#ERLO4 , -(SP) 


Pp 
oT | alent caine i ceria anil 
L.CNTICR3), (SP) 

-(SP) 

L.CNTOCR3), (SP) 


<i ioctl 
L.CNT2(R3),(SP) 
#ERLOG , - (SP) 
#3,-CSP) 

SP ,RO 

C$PNTX 

#10,SP 
#ERLO7,L.OPFLCR3) 
L.OPFLC(R3),-(SP) 
#ERLO7,-(SP) 
#2,-C(SP) 





SEQ 62 


GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


2614 
2615 


2616 


2617 


2618 


2619 
2620 
2621 
2622 
2623 
2624 


015462 
015464 
015466 
015472 
015476 
015476 
015502 
015506 
015512 
015516 
015520 
015522 
015526 
015526 
015532 
015536 
015540 
015542 
015546 
015546 
015552 


015716 
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010600 
104415 
062706 
000137 


016246 
016246 
012746 
012746 
010600 
104414 
062706 


012746 


012746 
012746 
010600 
104415 
062706 


012746 
012746 
010600 
104415 
062706 
010305 
010301 
062701 
005763 
100422 


011546 
011146 
012746 
012746 
010600 
104415 
062706 
062701 
062705 
162763 
001353 


012746 
012746 
010600 
104417 
062706 
105737 
001421 


005046 


000006 
015670 


000004 
000006 
016521 
000003 
000010 
017743 
000001 
000004 
016651 
000001 
000004 
016675 
000001 
000004 


000002 
177774 


016733 
000003 


020527 
000001 


000004 
002212 


177774 


PKPRNT: 


1$: 


MSGEXT: 


MOV 
TRAP 
ADD 


JMP 
PRINTB 







MSGEXT GET OUT 
#ERROS ,OBOFFHC(R2), oBorFLéR2) 
OBOFFL(R2), -(SP) 

OBOFFH(R2), -(SP) 

#ERROB , - CSP) 

#3,-(SP) 

SP 


#1,-(CSP) 


#ERR11,-(SP) 
#1, -(SP) 

SP ,RO 

C$PNTX 

#4 ,SP 

#ERR12 
#ERR12,-CSP) 
~ te 


R3,R5 sGET POINTER TO RESPONSE PACKET 
R3,R1 sAND A SECOND COPY 

#2,R1 sR1 POINT TO SECOND WORD OF PACKET 
MSGLENC(R3) sARE WE STILL POSITIVE ? 

MSGEXT sNO, GET OUT 

#ERR13,(R1),(R5) 

(RS),-CSP) 

(R1),-CSP) 

#ERR13,-CSP) 

#3,-(SP) 

SP ,RO 

C$PNTX 

#10, SP 

#4,R1 sGET THE NEXT WORD 

#4,R5 sAND AGAIN 

#4 ,MSGLENC(CR3) sADJUST MESSAGE LENGTH DOWN 2 WORDS 
1$ sKEEP PRINTING TILL ALL DONE 
#LINE 

@LINE, -CSP) 

#1,-(SP) 

SP 


CLOCK sIS THE CLOCK ENABLED 
1$ 3NO, THEN CAN‘T PRINT TIME 
wis »<B, HOURS>, <B, MINUTE> , <B, SECOND> 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


— 


015720 
015724 
015726 
015732 
015734 
015740 
015744 
015750 
015752 
015754 
015760 
015764 
015764 
015766 


015770 
016040 
016116 
016175 
016253 
016332 
016411 
016461 
016521 
016556 
016617 
016651 
016675 
016733 
016764 
017012 
017062 
017107 
017146 
017203 
017301 
017365 
017454 
017540 
017627 
017713 
017743 
017770 
020044 
020125 
020202 
020256 
020312 
020347 
020430 
020471 
020527 
020532 
020547 
020614 
020662 
029727 
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153716 


153716 
012746 
012746 
010600 
104417 
062706 


000167 
003044 


002215 
002214 
002213 


020044 
000004 


000012 





13: 


LINE:: 
CONTRV:: 


UNITRV:: 


SECOND , (SP) 
(SP 


L10003-2-. 


2s ACOMMAND : 
2sACOMMAND : 
2s ACOMMAND : 
2s ACOMMAND : 
2sACOMMAND : 
2sSACOMMAND : 
?2SNSAPASS: SD3SA(D) DATA PAT: #028A(0)? 
2SNSARECORD BYTE COUNT: sSD6SA(D)? 
?SNSAOBJECT CNT : #068068A(0)? 

2SNSADRIVE ERROR CODE : STSTSACH)? 
2SNSASA CONTENTS: #068A(0)? 

?SNSARESPONSE PACKET? 

?2SNSSSSAHIGH WORDSS6SALOW WORD? 
2SNSSSSO68A( 0 )SSE6S068A(0)? 
2SNSS2SABY TESS LOSADATA? 
2SNSS2SAADDRSS 38 AE XPECTEDSS3SARECEIVEDSN? 
2%S18068S58038S8sS035N? 

2SATOTAL BYTES IN ERROR : SD48N? 

?SNSATAP OBJ CNT: #068068A(0)? 

?SNSATRK NUM: sD28A(D) LEVEL: sD2sA(D) 
?SNSALOG BLK NUM: #D38A(D) PHYS BLK NUM: 
?SNSADRV CODE: S038A(0) ORV FLGS: 
2SNSADRV STATE: S068A(0) INTERN STATUS: 
?SNSATAP CNT O: s038A(0) TAP CNT 1: 
?7SNSATAP CNT 2: #038A(0) RD/WR STATE: 
?SNSAOPER FLGS: #068A(0)? 

?SNSAERROR LOG PACKET? 

PONSAS\a/a\0/4 
PONSAS\4/4\0/% 
2SNSAS\4/4\4/6 


STSS3SAT/MSCP UNIT: #038A(0)? 
STSA-REVSS3SAT/MSCP UNIT: S038A(0)? 
STSA-LEOTSS3SAT/MSCP UNIT: #038A(0)? 
STSA-IMMSSSSAT/MSCP UNIT: S038A(0)? 
STSA-UNLDSS3SAT/MSCP UNIT: #038A(0)? 
STSA-WRPRSSSSAT/MSCP UNIT: S038A(0)? 





RETRIES: 
sD68A(D)? 
8038A(0)? 
s038A(0)? 
s038A(0)? 
s068A(0)? 


CLOCK NOT PRESENT 4\#/#\s/ae8N? 
TIME 8Z28A:8Z26A:SZ26A 4\0/0\4/ aN? 
START OF DAY S028A #\4/4\4/as8N? 


?SABYTE COUNT: SDSACD) FILE SIZE: sDSACD)SN? 


?SNSAUNIT: S018A IS AT EOTSN? 
?SNSAUNIT: S018A IS AT LEOTSN? 


?SNSAR1:S068A R2:8068A R3:8068A R4:8068A RS: S068N? 


?SNSNSABYTES X-FERRED: sSDSSA(D SN? 
28068S38068S 3806S 380685 38060N? 


/SNSAUNIT: #D1/ 

/SNSACONTROLLER SOFTWARE VERSION : 
/#NSACONTROLLER HARDWARE VERSION : 
/SNSADRIVE SOFTWARE VERSION : 
/SNSADRIVE HARDWARE VERSION : 





sD28A(D)? 


GLOBAL AREAS MACRO YOS.02 Friday 12-Jul-85 09:00 Page 29-5 SEQ 65 
GLOBAL ERROR REPORT SECTION 





2678 021001 045 116 045 BYPASS: .ASCIZ /SNSA TEST 238A BYPASSEDSN/ 
2680 021034 ; ENDMSG 

021034 L10003: 

021034 104423 TRAP  C$MSG 





GLOBAL AREAS 


GLOBAL ERROR REPORT SECTION 


2682 
2683 
2684 


2685 
2686 
2687 
2688 
2689 


021036 
021036 
021036 
021040 
021042 
021044 
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000000 
177777 


177777 


sPROTECTION TABLE 


BGNPROT 
LSPROT:: 

-WORD O 

WORD -1 

«WORD -1 

ENDPROT 





SEQ 66 





GLOBAL AREAS MACRO Y05.02 


CLOCK HANDLER 


2693 021044 
021044 


2695 021044 105037 
2696 021050 052737 
2697 021056 
021056 012746 
021062 012746 
021066 010600 
021070 104417 
021072 062706 


2699 021076 
021076 
021076 000002 


2701 021100 
021100 


2703 021100 105237 
2704 021104 122737 
2705 021112 001051 
2706 021114 105037 
2707 021120 105237 
2708 021124 005237 
2709 021130 122737 
2710 021136 001037 
2711 021140 105037 
2712 021144 105237 
2713 021150 122737 
2714 021156 001027 
2715 021160 105037 
2716 021164 105237 
2717 021170 122737 
2718 021176 001017 
2719 021200 105037 
2720 021204 105237 
2721 021210 


021210 005046. 


021212 153716 
021216 012746 
021222 012746 
621226 010600 
021230 104417 
021232 062706 
2722 021236 
2723 021236 
021236 
021236 900002 


002212 
000002 


017770 
000001 


000004 


002216 
000074 


002216 
002215 
010556 
000074 


002215 
002214 
000074 


002214 
002213 
000030 


002213 
003564 


003564 
020125 
000002 


000006 
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003516 


002216 


002215 


002214 


002213 


-SBTTL CLOCK HANDLER 


NOCLK:: 


L10005: 


KWHDL: : 


HDLEXT: 
L10006: 


BGNSRV 


RTI 


NOCLK 


CLOCK 
@NC 


KWHOL 


SUBSEC 
#60. ,SUBSEC 
HOLEXT 
SUBSEC 
SECOND 
TIMER 
#60. ,SECOND 
HDLEXT 
SECOND 
MINUTE 
#60. MINUTE 
HOLE XT 


DAYS 


DAYS,(SP) 
@DAY,-(SP) 
#2,-(SP) 
SP ,RO 
CSPNTF 

#6 ,SP 


@NCLKFL ,PCFLAG 
LK 


@DAY,<B,DAYS> 
P) 


sCLEAR THE CLOCK ENABLED BIT 
sSET UP NO CLOCK PRESENT FLAG 
sPRINT MESSAGE 


sINCREMENT THE SUB-SECOND COUNTER 
:IS IT A SECOND YET ? 

3NO, GET OUT 

s;CLEAR THE SUBSEC COUNTER 
sINCREMNET THE SECONDS COUNTER 
sINCREMENT THE COMMAND TIMER 
31S IT A MINUTE YET ? 

sNO, GET OUT 

s;CLEAR THE SECOND COUNTER 
sINCREMENT THE MINUTE COUNTER 
sIS IT AN HOUR YET ? 

sNO, GET OUT 

sCLEAR THE MINUTE COUNTER 

s INCREMENT THE HOUR COUNTER 
sIS IT A DAY YET ? 

sNO, GET OUT 

sCLEAR THE HOURS COUNTER 
sINCREMENT THE DAY COUNT 
s;PRINT END OF DAY STATMENT 


ee 


SEQ 67 


GLOBAL AREAS 
SCHEDULER 


2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 


2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 


2762 
2763 


021344 
021352 


021356 
021362 
021364 
021370 
021374 
021400 
021400 
021402 
921404 
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022701 
001410 
062701 
062704 
005237 


104422 
000743 
000207 


002074 
002314 
000003 


000020 


020527 
000001 


000004 
000001 


000004 


000377 
026230 
000004 
021406 


000006 
000002 


000172 
002074 
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002114 
000000 


003350 
003350 


000010 
010571 


-SBTTL SCHEDULER 


§00606066606606466606668606666066 
3 

; SCHEDULER 
3 

:Called by 


:Calls to 
sOutputs 


: EOT Flag, Dropped Flag 





SEQ 68 


< 
. 


& ¢ 
4 


sRegister Inputs: RS (Pointer to command active in table - not used here) - 
Registers Used : R4 (Pointer to LUN Block for use by called subs) 


SCHED: : 
CLR R1 
CLR L$LUN 
MOV #LUNO,R4 
CMP #3,LSTEST 
BNE is 
CMPB #WR, CMDC RS) 
BNE i$ 
PRINTF @LINE 
MOV #LINE, -( SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #4,SP 
1s: BIT #AVB ,.DRINUSC(R1) 
BEQ 2s 
BIT #E0T .DRINUSCR1 > 
BNE 2$ 
MOV #377 ,SLTUSE(R4) 
JSR PC,PRTCLR 
MOVB #4,CRDLIM 
JSR PC ,CMMDSQ 
2s: CMP #6.,R1 
BEQ 3$ 
ADD #UNTSTP,R1 
ADD #LUNSTP,R4 
INC L$LUN 
BREAK 
TRAP CSBRK 
BR 1$ 
33: RTS PC 


sSET R1 TO FIST UNIT 

sSET L$LUN TO FIRST UNIT 

sSET R4 TO THE FIRST LUN BLOCK 
sARE WE IN TEST 3 ? 

sYES, PRINT LINEFEED 

sIS IT A WRITE COMMAND ? 

NO, GET OUT 

sPRINT A LINE FEED 


sSEE IF DRIVE IS PRESENT AND AVAILABLE 
sGET THE NEXT DRIVE IF IT ISN’T 

sCHECK IF THE DRIVE IS AT EOT 

sGET NEXT DRIVE IF IT IS 


sSET ALL RESPONSE SLOTS TO THE PORT 
;GO DO IT 

s;CREDITS START AT 4 FOR NEW LUN 

:GO DO THE TEST ON THIS DRIVE 


sHAVE WE DONE THEM ALL ? 
GET OUT 

sGET NEXT UNIT 

;SET UP THE NEXT LUN BLOCK 
sGET NEXT UNIT 


:GO DO THE NEXT ONE 
sRETURN 








— AREAS 


OMMAND SEQUENCER 


2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 


2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 


2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 


021406 
021406 
021406 
021410 
021412 
021416 
021424 
021432 
021440 


021446 
021454 
021456 
021462 
021464 
021472 


021474 
021500 
021506 
021510 
021514 
021516 


021524 
021524 
021526 
021532 
021540 
021542 
021550 
021552 
021556 


021560 
021564 
021566 
021574 


021576 
021604 
021606 


021610 
021616 
021620 
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-SBTTL COMMAND SEQUENCER 
Per IP irri itiiri titi titty 


; 
sCOMMAND SEQUENCER 


: 
:Called by SCHED 
:Calls to 





SEQ 69 


: CMDBLD, QCMD, CLSDRV, RSPHDR, UNJAM 


‘aasdpash Inputs: RS - POINTER TO COMMAND ACTIVE IN TABLE 
R4 - POINTER TO LUN BLOCK 


CMMDSQ:: 
PUSH <R1,R5> 

010146 MOV R1,-CSP) 
010546 MOV R5,-(SP) 
004737 022002 JSR PC ,CMDBLD 
042737 000200 003516 BIC #CMDONE , PCFLAG 
013737 003420 003400 MOV ITERS, CMDCNT 
013737 003420 003402 MOV ITERS,RSPCNT 
012737 177777 010550 MOV 4-1, CMSTSV 
032737 000040 003516 5$: BIT #GCSRFL,PCFLAG 
001023 BNE 15$ 
005737 003400 TST CMDOCNT 
001004 BNE 10$ 
052737 000200 003516 BIS #CMDONE ,PCFLAG 
000414 BR 15$ 
004737 023050 10$: JSR PC ,QCMD 
032737 000002 003516 BIT @NCLKFL, PCFLAG 
001003 BNE 13$ 
005037 010556 CLR TIMER 
000403 BR 15$ 
012737 010000 010556 13%: MOV #10000, TIMER 

15$: BREAK 
104422 TRAP CSBRK 
004737 023444 JSR PC ,CLSORV 
032737 000002 003516 BIT #NCLKFL,PCFLAG 
001007 BNE 18$ 
022737 000171 010556 CMP #121., TIMER 
101012 BHI 20$ 
005037 010556 CLR TIMER 
000414 BR 25$ 
005337 010556 18$: DEC TIMER 
001004 BNE 20$ 
012737 010900 010556 MOV #10000, TIMER 
000405 BR 25$ 
022737 020000 010546 20%: cmMP #IOICRD, IOSTAT 
001747 BEQ 15$ 
000425 BR 35$ 
032737 000040 003516 253: BIT #GCSRFL,PCFLAG 
001412 BEQ 30$ 
042737 000040 003516 BIC #GCSRFL,PCFLAG 


sSAVE Ri AND RS 


33PUSH R1 ON STACK 
33PUSH RS ON STACK 


;GO BUILD THE COMMAND 

sGET SET TC START ISSUING COMMANDS 
sGET THE COMMAND COUNT 

;GET THE RESPONSE COUNT 

sRESET THE GCS PROGRESS COUNT 


sSTILL LOOKING FOR A GCS RESPONSE ? 
DON'T QUEVE UP THE NEXT COMMAND 

s:D0 WE STILL HAVE COMMANDS TO ISSUE ? 
sYES , KEEP GOING. 

sSET THE ALL COMMANDS ISSUED FLAG 


sGO QUEVE UP THE NEXT COMMAND 
sIS A CLOCK PRESENT ? 

sNO CLOCK, START REGULAR TIMER 
sSET TIMER TO 0 

GO ISSUE COMMAND 

;SET UP THE TIMER 


sCALL THE CLASS DRIVER 

sIS A CLOCK PRESENT ? 

sNO CLOCK, START REGULAR TIMER 
sHAVE WE TIMED OUT ? 

NO, KEEP GOING 

;SET TIMER TO 0 

sYES,SET UP FOR TIME OUT 


s;DECREMENT THE TIMER 
sBRANCH IF NOT 0 
sRESET THE TIMER 
sSET TIME OUT ERROR 


sINSUFFICIENT CREDITS ? 
sYES, TRY AGAIN 
sYES, CHECK IT OUT 


sWAITING FOR A GCS RESPONCE ? 
NO, SET UP TO DO A GCS 
sCLEAR THE GCS RESPONSE FLAG 





GLOBAL AREAS 
COMMAND SEQUENCER 


2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 


2851 


021626 
021634 
021640 
021642 


021644 
021652 
021660 


021662 
021670 
021672 
021700 
021702 
021706 
021714 
021716 


021722 
021730 
021732 
021740 
021742 


021746 
021754 
021756 
021762 
021764 
021772 


021774 
021774 
021776 
022000 
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012737 
004737 
000240 
000407 


052737 
052737 
000721 


022737 
001406 
032737 
001002 
005337 
022737 
001414 
004737 


032737 
001275 
022737 
001002 
004737 


032761 
001407 
005737 
001231 
032737 
001225 


012605 
012601 
000207 


000004 
033742 


000020 
000040 
060000 
000240 


003400 
000000 


027432 
020000 
000002 
033250 
000001 
003402 
000040 





010546 


003516 
003516 


010546 
003516 


010546 


010546 
003406 


003350 


003516 


30$: 


35$: 


40$: 


45$: 


50$: 


MOV 
JSR 
NOP 
BR 


BIS 
BIS 
BR 


LL 
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#IOTIME, IOSTAT 
PC ,CORDMP 


35$ 

#GCSCFL,PCFLAG 

#GCSRFL,PCFLAG 

15$ 

#ERRLOG! IOICRO , IOSTAT 
$ 

#CMDONE!GCSRFL,PCFLAG 

40$ 


CMDCNT 
#IONORM, IOSTAT 
$ 


45 

PC,RSPHDL 
#IOICRD, IOSTAT 
15$ 
#SEREXC,RESPON 
45$ 

PC ,UNJAM 

#AVB ,DRINUS(R1) 
50$ 

RSPCNT 

S$ 
#GCSRFL,PCFLAG 
5$ 

<R5,R1> 


(SP)+,R5 
(SP)+,R1 
PC 


3sPOP STACK INTO RS 
3sPOP STACK INTO R1 


sSET UP TIME OUT ERROR 
sD0 A VARIABLES DUMP 


sGO REPORT ERROR AND DROP UNIT 


sSET THE GCS COMMAND FLAG 
sSET THE GCS RESPONSE FLAG 
sGO ISSUE THE GCS COMMAND 


sDID WE GET ERROR LOG PACKET ONLY? 

sYES - SO BRANCH AROUND NEXT INSTRUCTION 
sHAVE ALL COMMANDS BEEN ISSUED ? 

sYES, DON’T LET CMDCNT GO NEGATIVE 
sDECREMENT THE COMMAND COUNT 

sWAS IT A NORMAL COMPLETION ? 

sYES , GET OUT 

sNO, LETS SEE WHAT IT WAS 


sWERE WE IN RSPHDL FOR ERROR LOG ONLY? 
sYES - GO TRY TO POST SAME COMMAND. 
sWAS IT A SERIOUS EXCEPTION ? 

sNO, CONTINUE 

sYES, GO UNJAM THE QUEUES 


sHAS THE DRIVE BEEN DROPPED ? 

sYES, EXIT 

sHAVE WE GOTTEN ALL THE RESPONSE BACK ? 
sNO, GO BACK TO THE TOP 

sSTILL LOOKING FOR A GCS RESPONSE ? 
sYES, DON’T GET OUT YET 


sRESTORE REGISTERS R1 AND RS 


sRETURN 








GLOBAL AREAS 


COMMAND BUILDER 


2853 


022002 
022002 
022010 
022014 


022022 
022026 
022034 
022040 


022044 
022052 
022054 
022062 
022064 
022064 
022070 
022074 
022100 
022104 
022106 
022110 


022114 
022120 
022122 
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012737 
012703 
116563 


004737 
013763 
004737 
004737 


022737 
001020 
122765 
001014 


013746 
013746 
012746 
012746 
010600 
104417 
062706 


012703 
010302 
000207 


000004 
003344 
000000 


022124 
003416 
022212 
022644 
000003 
000020 
003420 
003416 
020202 
000003 
000010 


003264 





003424 
000000 


000002 


002114 
000000 


-SBTTL COMMAND BUILDER 
PRRREREARARERERERAEEREREEEE ES 


; 
sCOMMAND BUILDER 


3 
:Called 


by 


:Calls to 


sRegister Inputs: 
$ 
sRegister Output: 


3 
sRegisters Used : 
; 


CMDBLD:: 


5$: 


: CMMDSQ 


#N , SUBCNT 
#DUMPKT , R3 
CMDCRS), CMDCR3) 


PC ,BYTCNT 
BYTES, ITMOFF(R3) 
PC,SELDAT 
PC,SELREC 


ies 
#WR,CMDCRS) 
5$ 


#COUNTS, BYTES, ITERS 
ITERS, -(SP) 

BYTES, -(SP) 
#COUNTS, -( SP) 

#3, -(SP) 

SP ,RO 

C$PNTF 

#10, SP 


#PCMCOBF ,R3 
R3,R2 
PC 


: BYTCNT, SELDAT, SELREC 

RS - pointer to test's command table 

R4 - pointer to LUN BLOCK 

R3 - new pointer for command ring (set to start of ring) 
R2 - old pointer for command ring (set to start of ring) 
R3 Pointer to dummy packet before setting to command ring 


a 
SEQ 71 


sINITIALIZE THE SUB-ITERATION COUNTER 
sPUT THE DUMMY PACKET ADDRESS IN R3 
sMOVE THE COMMAND PRIMITIVE TO THE PACKET 


GO GET THE BYTE COUNT 

sPUT THE BYTE COUNT IN THE DUMMY PACKET 
sGO GET THE DATA 

sGO GET THE RECORD COUNT 


sARE WE IN TEST 3 ? 

sYES, PRINT COUNTS 

sIS IT A WRITE COMMAND ? 

sNO, GET OUT 

sYES, PRINT BYTE AND ITERATION COUNTS 


;PUT THE PROGRAM COMMAND RING ADDRESS IN 
sR3_ AND R2 
sRETURN 





GLOBAL AREAS 
BYTE COUNT 


2889 
2890 


022124 
022124 
022130 
022134 
022136 
022144 


022146 
022154 


022156 
022162 
022170 
022172 
022200 
022202 
022210 
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122765 
103415 


004737 
023727 
101372 
023727 
103766 
013737 
000207 


003416 
000002 


000002 


000020 


022716 
003426 
003426 


003426 





003416 


000000 


020000 


000024 
003416 


-SBTTL BYTE COUNT 
SRRRREREEREARRRARE EERE EEEE EERE 


; 
; BYTE C 


OUNT 


F 
:Called by 


:Calls t 
;Outputs 


sRegister Inputs: 


;Registers Used : 


; 
BYTCNT:: 


1$: 


2s: 


3$: 


° 


: CMDBLD 
: RANGEN 


SEQ 72 


: BYTES (contains byte or item count to be used for this iteration set) 


RS - pointer to test command table 


5 R4 - pointer to LUN BLOCK 
sRegister Output: None 


None 


BYTES 
os 
1 


ITMCNTCRS) BYTES 
3$ 

#WR,CMDCRS) 

3$ 


PC ,RANGEN 

RANWRD , #MAXBUF 

2$ 

ee 
$ 


RANWRD ,BYTES 
PC 


sCLEAR BYTES 

sCHECK ITMCNT FOR 0 
sCONTINUE IF IT IS 0 
sPUT ITMCNT INTO BYTES 
sEXIT 


:IS IT A READ OR WRITE 
sGET OUT IF IT ISN‘T 


:GO TO THE RANDOM GENERATOR 

3IS THE RESULT WITHIN THE LIMITS ? 
;BRANCH IF TOO HIGH 

:IS IT TOO SMALL ? 

sBRANCH IF TOO SMALL 

;PUT RANWRD INTO BYTES 

;RETURN 





GLOBAL AREAS 
SELECT DATA PATTERN 


2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 


022212 
022212 
022216 
022222 
022224 
022230 
022232 
022240 


022242 
022246 
022250 
022256 


022260 
022264 
022272 
022274 


022302 
022306 
022312 
022314 


022316 
022322 
022326 
022330 


022332 
022336 
022342 


022344 
022344 
022346 
022350 
022352 
022354 
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105765 
001445 
105737 
001404 
113764 
000420 


105765 
100404 
116564 
000411 


005264 
026427 
001003 
012764 


013705 
032705 
001401 
005205 


012703 
116401 
005301 
006301 


004771 
000207 


022362 
022376 
022410 
022450 
022464 





000001 
002233 
002233 


000001 
000001 
000024 
000024 
000001 


003416 
000001 


070560 
000024 


022344 


000024 


000024 


000010 
000024 


-SBTTL SELECT DATA PATTERN 
RRRARRERRAEAAEERE EERE ERE EAE 


; 
; SELECT DATA PATTERN 
; 

Called by 


: CMDBLD 
:Calls to : RANGEN 
sInputs 
3 
;Outputs 





: Data Pattern in test command table 
PATSAV in LUN BLOCK if rotating pattern in use 
: Write Buffer filled with appropriate data pettern 


; PATSAV in LUN BLOCK updated to next pattern 
sRegister Inputs: R5 - pointer to test command table 

; R4 - pointer to LUN BLOCK 

sRegisters Used : R3 - pointer to WRIBUF 

; R2 - pointer to data pattern 


; 
SELDAT:: 


PUSH <R1,R5> 
TSTB DATPATCRS) 


BEQ 20$ 


1$: TSTB 


5$: INC 


10$: MOV BYTES,RS 
BIT #BITO,RS 
BEQ i5$ 
INC RS 
15$: MOV #WRTBUF , R3 
MOVB PATSAV(R4),R1 
DEC R1 
ASL R1 
JSR PC ,@PATTBL(R1) 
20$: POP <RS,R1> 
RTS Cc 
PATTBL:: 
-WORD PATGN1 
-WORD PATGN2 
-WORD PATGN3 
-WORD PATGN4 


-WORD PATGNS 


TSTB — 
MOVB —ee 
$ 


——— 

MOVB DATPATCRS) ,PATSAVC(R4) 
10$ 

PATSAV(R4) 

CMP cape: 
10$ 

MOV #1. ,PATSAVCR4) 


sSAVE R1 AND RS 


sTEST DATPAT FOR A TEST PATTERN 
sBRANCH IF WE DON’T NEED ONE 
sPATTERN SPECIFIED IN SOFTWARE P-TABLE ? 


sNO, KEEP GOING 


sPUT THE PATTERN IN THE SAVE LOCATION 


;D0 WE WANT ROTATING DATA PATTERNS ? 


sIF NEGATIVE GO TO S$ 


sLET PATSAV EQUAL DATPAT 


;BRANCH 
sADD 1 TO PATSAV 


sARE WE AT THE END OF THE PATTERN TABLE ? 


sNO, KEEP GOING 


sAT THE END, LET PATSAV EQUAL 1 


;PUT THE BYTE COUNT IN R5 
:IS THE BYTE COUNT ODD ? 


s;BRANCH IF NOT 


sMAKE BYTE COUNT EVEN FOR PATGEN 
sPOINT R3 TO THE WRITE BUFFER 


sSAVE PATSAV IN Ri 
sADJUST FOR TABLE STEP 
sMAKE IT MOD 2 OFFSET 


;GO FILL THE BUFFER 
sRESTORE RS AND R1 
;RETURN 


sALL 1'S 
sALL O'S 
sWORST CASE MFM 
sALTERNATE 1‘'S AND O'S 
sRANDOM DATA 





GLOBAL AREAS 


2978 022356 
2979 022360 


2985 022374 


2987 022376 
2988 022376 
2989 022400 
2990 022404 
2991 022406 


2993 022410 
2994 022410 
2995 022414 
2996 022420 
2997 022422 
2998 022426 
2999 022432 
3000 022434 
3001 022440 
3002 022444 
3003 022446 


3005 022450 
3006 022450 
3007 022454 
3008 022460 
3009 022462 


3011 022464 
3012 022464 
3013 022470 
3014 022474 
3015 022500 
3016 022502 


3018 022504 
3019 022504 
3020 022510 
3021 022514 
3022 022516 


3024 022520 
3025 022520 
3026 022522 
3027 022526 
3028 022532 
3029 022536 
3030 022540 
3031 022544 
3032 022546 
3033 022552 
3034 022556 


Rio silat on as th ranalicoe 
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SELECT DATA PATTERN 


022504 
022520 


012723 
162705 
001373 
000207 


005023 
162705 
001374 
000207 


012723 
162705 
001412 
012723 
162705 
001405 
012723 
162705 
001361 
000207 


012723 
162705 
001373 
000207 


004737 
013723 
162705 
001371 
000207 


012723 
162705 
001373 
000207 


012702 
012723 
162705 
001440 
162702 
001420 
012723 
162705 
001430 


177777 
000002 


000002 


133333 
000002 


155555 
000002 


066666 
000002 


125252 
000002 


022716 
003426 
000002 


167356 
000002 


001000 
133333 
000002 


000002 


155555 
000002 


PATGN1: 


PATGNe: 


PATGN3: 


1$: 


PATGN4: 


PATGNS: 


PATGN6: 


PATGN7: 


1$: 
3$: 


PATGN6 
PATGN7 


#-1,CR3)+ 
#2,R5 
PATGN1 

PC 


(R3)+ 

#2 RS 

PATGN2 
PC 


——_— 


i$ 
#155555, (R3)+ 
#2,R5 


i$ 
#066666, (R3)+ 
#2,R5 


PATGN3 

PC 

#125252, (R3)+ 

#2 ,R5 

PATGN4 

PC 

PC ,RANGEN 

RANWRD ,CR3)+ 
oR5 

PATGNS 

PC 

#167356, (R3)+ 

#2,R5 

PATGN6 

PC 

<R2> 

#512.,R2 

#133333,(R3)+ 

#2,R5 

#2,R2 

5$ 

#155555, (R3)+ 

#2,R5 

10$ 


31110 REPEATING PATTERN 
sCOMBINATION PAT 3 AND 5 


sPUT ALL 1’'S INTO THE BUFFER 
sSUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN’T AT 0 
sRETURN 


;PUT ALL 0‘S INTO THE BUFFER 
;SUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN'T AT O 
sRETURN 


sPUT THE NUMBER INTO THE BUFFER 
s;SUBTRACT TWO FROM R5 

sKEEP GOING IF WE AREN‘T AT O 
sPUT THE NUMBER INTO THE BUFFER 
sSUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN'T AT O 
sPUT THE NUMBER INTO THE BUFFER 
sSUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN‘T AT 0 
sRETURN 


;PUT ALTERNATING 1 AND O INTO THE BUFFER 
s;SUBTRACT TWO FROM RS 

;KEEP GOING IF WE AREN'T AT 0 

;RETURN 


;GO GENERATE RANDOM PATTERN 
;PUT THE NUMBER INTO THE BUFFER 
;SUBTRACT TWO FROM R5 

sKEEP GOING IF WE AREN'T AT O 
s;RETURN 


sPUT 1110 REPEATING IN BUFFER 
;SUBTRACT TWO FROM R5 

;KEEP GOING IF WE AREN'T AT 0 
sRETURN 


s;PUT THE NUMBER INTO THE BUFFER 
sSUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN'T AT 0 
sHAVE WE DONE A FULL BLOCK YET 
sYES DO NEXT BLOCK IN PATTERN 5 
sPUT THE NUMBER INTO THE BUFFER 
sSUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN‘T AT O 








GLOBAL AREAS 
SELECT DATA PATTERN 


3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 


022560 


022642 
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162702 
001410 
012723 
162705 
001420 
162702 
001350 
012702 
004737 
013723 
162705 
001404 
162702 
001366 
000731 


000207 


10$: 


#2 ,R 





sHAVE WE DONE A FULL BLOCK YET 
sYES DO NEXT BLOCK IN PATTERN 5 
sPUT THE NUMBER INTO THE BUFFER 
sSUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN'T AT O 
sHAVE WE DONE A FULL BLOCK YET 
sYES DO NEXT BLOCK IN PATTERN 5 


sGO GENERATE RANDOM PATTERN 
sPUT THE NUMBER INTO THE BUFFER 
sSUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN‘T AT 0 
sHAVE WE DONE A FULL BLOCK YET 
sYES DO NEXT BLOCK IN PATTERN 5 


sRETURN 
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SELECT RECORD 








3055 -SBTTL SELECT RECORD 

3056 pRaRREAARAAEESASEAEEREALREREA EARLE DS 

3057 3 

3058 ; SELECT RECORD 

3059 3 

3060 ;Called by : CMDBLD 

3061 :Calls to : RANGEN 

3062 ;Outputs : ITERS (number of iterations for this set) 

3063 sRegister Inputs: RS - pointer to test command table 

3064 3 R4 - pointer to LUN BLOCK 

3065 8 

3066 

3067 022644 SELREC:: 

3068 022644 005765 000004 TST ITRCNTCRS) ;TEST THE ITERATION COUNT 
3069 022650 001016 BNE 10$ ;IF IT ISN'T O THEN BRANCH 
3070 022652 004737 022716 5$: JSR PC ,RANGEN :GO TO THE RANDOM GENERATOR 
3071 022656 023727 003426 003720 CMP RANWRD , #MAXITR ;IS THE ITERATION COUNT TO HIGH ? 
3072 022664 101372 BHI 5$ :GO TRY AGAIN 

3073 022666 023727 003426 000144 CMP RANWRD , #MINITR ;IS THE ITERATION SET TOO SMALL ? 
3074 022674 103766 BLO 53 :GO TRY AGAIN 

3075 022676 013737 003426 003420 MOV RANWRD , I TERS ;SAVE THE RANDOM NUMBER 
3076 022704 000403 BR 15$ sEXIT 

3077 022706 016537 000004 003420 10$: MOV ITRCNTCRS),ITERS sSAVE THE ITERATION COUNT 
3078 022714 000207 15$; RTS PC sRETURN 


-— 














—— 
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RANDOM NUMBER GENERATOR 
3080 -SBTTL RANDOM NUMBER GENERATOR 
3081 j hhh hb bb h00444 0000040008 4408 
3082 H 
see sRANDOM NUMBER GENERATOR 
H 
3085 Called by : BYTCNT, SELDAT, SELREC 
3086 sInputs : RANI, RAN2, RAN3 
3087 ;Outputs : RANWRD 
3088 sRegisters Used : R5 
3089 3 
3090 
3091 022716 RANGEN: : 
3092 022716 PUSH <R5> SAVE RS 
3093 022720 016437 000144 003430 MOV SEED1(R4),RANL sPUT SEED1 INTO RANI 
3094 022726 016437 000146 003432 MOV SEED2(R4),RAN2 sPUT SEED2 INTO RAN2 
3095 022734 016437 000150 003434 Prov SEED3(R4),RAN3 ;PUT SEED” “NTO RAN3 
3096 022742 013705 003430 MOV RAN1,R5 sMOVE THE #4.:ST SEED INTO R5 
3097 022746 000241 CLC ;CLEAR THE CARRY FLAG 
3098 022750 005337 003434 DEC RAN3 ;DECREMENT THE THIRD SEED 
3099 022754 006105 ROL RS ; 
3100 022756 006105 ROL RS : 
3101 022760 063705 003432 ADD RAN2.RS ;ADD THE SECOND SEED TO RS 
3102 022764 010537 003430 MOV R5,RANL 3;PUT IT ALL IN THE FIRST SEED 
3103 022770 063705 003434 ADD RAN3,R5 ;PUT THE THIRD SEED INTO RS 
3104 022774 006105 ROL RS ; 
3105 022776 006105 ROL RS ; 
3106 023000 063705 003432 ADD RAN2,R5 sADD THE SECOND SEED TO R5 
3167 023004 006105 ROL RS H 
3108 023006 006105 ROL RS 3 
3109 023010 010537 003432 MOV RS ,RAN2 ;PUT IT IN THE SECOND SEED 
3110 023014 013737 003430 003426 MOV RAN1 ,RANWRD ;PUT THE FIRST SEED INTO RANWORD 
3111 023022 013764 003430 000144 MOV RAN1 ,SEED1(R4) ;PUT RAN1 INTO SEED1L 
3112 023030 013764 003432 000146 MOV RAN2 , SEED2(R4) ;PUT RAN2 INTO SEED2 
3113 023036 013764 003434 000150 MOV RAN3 , SEED3(R4) ;PUT RAN3 INTO SEED3 
3114 023044 POP <R5> sRESTORE RS 
3115 023046 000207 RTS PC s;EXIT 





Sy 


GLOBAL AREAS 


QUEVE COMMANDS 


3130 023050 
3131 023050 
3054 


3138 023102 
3139 023106 
3140 023114 


3142 023122 
3143 023126 
3144 023134 
3145 023140 
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022703 
001002 
012703 
012705 
116563 
016563 


004737 
016463 
016463 


004737 
013763 
062703 
000207 


003344 


003264 
003344 
000000 
000002 


023276 
000034 
000036 


023142 
003422 
000014 


000000 
000002 


000004 
000006 


000012 


-SBTTL QUEUE COMMANDS 
j#OO060$0006006060606000604 000608 


; 
; QUEVE COMMANDS 


;Celled by 
Calls to 
pugneter Inpute: R3 - pointer to next slot in ring 

R4 - pointer to LUN BLOCK 
jRegister Output: R3 - updated to point to next available slot 
RS - Points to dummy packet 


eal: Used : 


QCMD: : 


1$: 


: SUBITR 


PCBEND,R3 
1$ 


OPCMDBF ,R3 

@DUMPKT,RS 

CMDCRS), CMDCR3) 
ITMOFF CRS) ,ITMOFFCR3) 


PC ,OBCTHD 
OB JFDL(R4) ,OBOFFL(R3) 
OB JF OH(R4) , OBOFFHCR3 ) 


PC ,SUBITR 
BUF ADR , BUF OF F(R3) 
oe 





SEQ 78 


sIS R3 POINTING AT THE END OF THE RING ? 
sNO, THEN KEEP GOING 

sYES, SET IT TO THE RING BEGINNING 
;POINT RS TO THE DUMMY PACKET 

sPUT THE COMMAND PRIMITIVE INTO THE RING 
sPUT THE ITEM OFFSET INTO THE RING 


sGO GET THE OBJECT COUNT 
sPUT THE LOW FIELD INTO THE RING 
sPUT THE HIGH FIELD INTO THE RING 


:GO TO SUB-ITERS 
sPUT THE BUFFER ADDRESS INTO THE RING 
sMOVE R3 TO THE NEXT SLOT IN THE RING 
sRETURN 








GLOBAL AREAS 
SUB - ITERATION 


3158 023142 
3159 023142 
3160 023146 
3161 023150 
3162 023156 


3164 023160 
3165S 023164 
3166 023166 
3167 023174 
3168 023202 
3169 023210 
3170 023216 
3171 023220 
3172 023226 
3173 023230 
3174 023236 


3176 023240 
3177 023246 
3278 023250 
3179 023256 
3180 023260 
3181 023266 
3182 023274 
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-SBTTL SUB-ITERATION 


$0 0066606660606606646060646066464066608 


; 
3 SUB-ITERATION 





SEQ 79 


F 
:Called by : QCMD 
;Outputs : BUFADR 
sRegister Inputs: R3 - pointer to command slot 
: R4 - pointer to LUN BLOCK 
; 
SUBITR:: 
105763 000000 TS1T8 CMDC(R3) sARE WE ISSUING NULL COMMANDS ? 
001452 BEQ 10$ ;BRANCH IF THE NULL COMMAND 
122763 000020 000000 CMPB @WR, CMOCR3) 31S IT GREATER THAN A WRITE 
103446 BLO 10$ ;YES, BRANCH 
005337 003424 18: DEC SUBCNT sSUBTRACT 1 FROM SUBCNT 
001025 BNE 5$ ;BRANCH IF NOT 0 
016337 000004 070556 MOV OBOFFL(R3) ,WRTIBUF -2 sPUT LOW ORDER OBJECT COUNT IN WRTBUF 
012737 000004 003424 MOV #N, SUBCNT sREINIT SUBCNT 
012737 050560 003422 4$: MOV #ROBUF ,BUF ADR ;PUT THE READ BUFFER ADDRESS IN BUFADR 
122763 000020 000000 CMPB #WR,CMD(R3) ;IS IT A WRITE COMMAND 
001026 BNE 10$ ;GET OUT IF IT’'S NOT 
022737 000003 002114 cmp #3,L$TEST sARE WE IN TEST 3 ? 
001017 BNE 7$ 3NO, SET WRITE BUFFER IN BUFADR 
012737 070556 003422 MOV SWRTBUF -2,BUF ADR sSET MODIFIED WRITE BUFFER IN BUFADR 
000416 BR 10$ s;EXIT 
122763 900020 000000 5$: CMPB #WR, CMDCR3) ;SEE IF ITS A WRITE 
001407 BEQ 7$ ;YES, BRANCH 
022737 000006 002114 cmp #6,LSTEST ;ARE WE IN TEST 6 ? 
001751 BEQ 4s sYES, PUT READ BUFFER IN BUFADR 
112763 000040 000000 MOVB #ACC ,CMD(R3) ;SET UP AN ACCESS DATA COMMAND 
012737 070560 003422 7$: MOV #WRTBUF ,BUFADR ;SET WRTBUF ADDRESS IN BUFADR 
000207 10$: RTS PC sRETURN 





GLOBAL AREAS 
OB JET COUNT HANDLER 


3184 
3185 
3186 
3187 
3188 


023276 
023276 
023300 
023304 
023310 
023312 
023314 
023320 
023322 
02332€ 
023332 


023334 
023340 
023342 
023346 
023350 
023356 


023360 
023366 
023374 
023376 
023404 
023406 
023414 
023416 
023422 


023424 
023432 
023434 
923440 
023442 
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116301 
042701 
005701 
001452 
022701 
001005 
005064 
005064 
000442 


022701 
101007 
022701 
001404 
016337 
000403 


012737 
032763 
001021 
032763 
001007 
063764 
103011 
005264 
000406 


163764 
103002 
005364 


000207 


000000 
00000 ’ 
000160 
000034 
000036 
000050 
000100 
000002 
000001 
000002 
000001 
003530 
000036 


003530 
000036 





003530 


003530 
000000 
000000 


000034 


000034 


-SBTTL OBJET COUNT HANDLER 


FOOSE EKEKEEER EE EEEEEEEEEDES 


3 
; OBJECT COUNT HANDLER 


i 
:Called 
:Inputs 
:Outputs 


OBCTHD:: 


1$: 


23: 
3$; 


4s: 


6$: 


by 


: QCMD 
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SEQ 80 


: Current Object Count in LUN BLOCK 
: Updated Object Count in LUN.BLOCK 
sRegister Inputs: R3 - pointer to command slot 

R4 - pointer to LUN BLOCK 


<R1> 
CMD(R3),R1 


R1 

6$ 

OREW,R1 

1$ 

OBUFOL(R4) 

OB JF DH(R4) 

6$ 

#SPC,R1 

es 

OWwTM,R1 

es 

ITMOFF(R3),R8 

3$ 

#1,R8 

> lecalaiaetnice 
$ 

arab aieaiaa 
5 

R8 ,OBJFDL(R4) 

6$ 


OB JF DH(R4) 
6$ 


R8 ,OBJFOL(R4) 
6$ 


OB JF DH(R4) 
<R1> 
PC 


sSAVE R1 

sPUT THE COMMAND PRIMITIVE INTO Ri 
sSTRIP OFF THE MODIFIERS 

sIS IT THE NULL COMMAND ? 

sEXIT IF IT IS 

sIS IT A REWIND ? 

sBRANCH IF NOT 

sCLEAR THE OBJECT 

sCOUNT FIELD AND 

sEXIT 


sIS IT A _NON-DATA TRANSFER COMMAND ? 
sBRANCH IF IT IS 

sIS IT A WRITE TAPE MARK ? 

sBRANCH IF IT IS 

sPUT THE ITEM COUNT IN TEMP REGISTER 
; CONTINUE 


sPUT A 1 IN THE TEMP REGISTER 

sIS IT AN LEOT COMMAND ? 

sGET OUT IF IT IS 

sIS THE COMMAND REVERSE ? 

sBRANCH IF REVERSE 

sADD TEMP TO THE OBJECT COUNT 

sBRANCH IF NO CARRY 

an ADD 1 TO THE HIGH OBJECT COUNT 
sEX 


IF REVERSE, SUBTRACT TEMP FROM THE 

sOBJECT COUNT AND BRANCH IF NO CARRY 
sOTHERWISE SUBTRACT 1 FROM OBJECT COUNT HIGH 
Ss R1 
3EX 
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023444 
023444 
023450 
023454 
023462 
023464 
023470 
023472 
023476 


023500 
023504 
023510 
023516 


023520 
023524 
023526 
023532 
023534 


023540 
023544 
023550 


023552 
023560 
023562 
023570 
023572 
023600 
023602 
023610 


023612 
023620 
023626 
023630 
023636 


Nace otek Sis ee 
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CLASS DRIVER TRANSMIT 


032737 
001010 
032737 
001042 
032763 
001404 
112737 
000403 


112737 
123737 
103004 
052737 
000417 


000016 
000040 


003264 
000014 
000044 
010546 
000170 
026306 
000010 
026230 
023710 
010546 
000020 
000200 
000200 
000001 
000002 
010571 
020000 


003516 


000000 


003516 
003516 
000000 
010570 
010570 
010570 
010546 


-SBTTL CLASS DRIVER TRANSMIT 


$$ 066606666064666466060666460606600606646 
3 
:Class Driver Transmit 


; 
sCalled By 


: CMMDSQ 
:Calls To : CDRECV, STFPCK, PRTDRV 
sInputs : CROLIM - Command slots open 
3 COLSAV - Old driver command 
;Outputs : IOSTAT - Transfer status. 


; CMDSEQ - Number appended to 
: GCSREF - Get Command Status 
Register Inputs: R2 - Old pointer to program 
i R3 - New pointer to program 
R4 - Lun block pointer. . 
:Regi ster Outputs: R5 - Old pointer to driver 





SEQ 81 


in the drive. 
pointer. 


each command packet. 
reference number. 
command ring. 
command ring. 


command ring. 


CLSORV:: 
PUSH <R3,R5> sSAVE R3, RS 
MOV COLSAV(R4),R5 sPOINT RS TO THE OLD DRIVER CO“MAND 
BIT @GCSRFL,PCFLAG 3IS THIS A GCS COMMAND ? 
BNE 10$ sYES, GO SETUP 
CMP @PCMDBF ,R3 :IS R3 AT THE BEGINNING OF THE PROGRAM RING ? 
BEQ 5$ ;YES, BRANCH 
SUB #PCBSTP,R3 ;NO, MOVE R3 ONE SLOT BACK 
BR 10$ ; CONTINUE 
5$: ADD #PCB3SP,R3 ;YES, ADVANCE R3 TWO SLOTS 
10$: CLR IOSTAT ;CLEAR THE I/0 STATUS WORD 
CMPB INT ,CMDCR3) 3IS THIS A INITIALIZATION COMMAND ? 
BNE 15$ sCONTINUE IF IT ISN'T 
JSR PC ,PRTINT ;CALL THE PORT INIT ROUTINE 
BR 55$ sEXIT 
15$: TST SLTUSE(R4) ;DID WE HANDLE ANY RESPONSES LAST TIME ? 
BEQ 20$ ;BRANCH IF NOT 
JSR PC,PRTCLR 3GO CLEAR THE OLD RESPONSES 
208: JSR PC ,CDRECV 3GO CHECK FOR ANY NEW RESPONSES 
TSTB IOSTAT 3IS THE I/0 STATUS 0.K. ? 
BNE 55$ sEXIT IF IT ISN’T 
25$: BIT #GCSCFL,PCFLAG 3IS THIS A GCS COMMAND ? 
BNE 30$ ;YES, GO SETUP MINLIM 
BIT #CMDONE , PCFLAG 3IS THIS A NULL COMMAND ? 
BNE 55$ ;EXIT IF IT IS 
BIT #IMM ,CMDCR3) 3IS THIS AN IMMEDIATE COMMAND ? 
BEQ 35$ 3NO, BRANCH 
30$: MOVB #1,MINLIM sYES, SET MINIMUM LIMIT TO 1 
BR 40$ sBRANCH — 
35$: MOVB #2 ,MINLIM 3NO, SET MINIMUM LIMIT TO 2 
40$: CMPB CROLIM,MINLIM 300 WE HAVE ENOUGH CREDITS ? 
BHIS 45$ sYES, KEEP GOING 
BIS #IOICRD,ICSTAT ;SET INSUFFICIENT CREDIT IN I/O STATUS 
BR 55$ 3;GET OUT 
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CLASS DRIVER TRANSMIT 


3288 

3289 023640 005264 000006 45$: INC CMDSEQ(R4) sADD 1 TO THE COMMAND SEQUENCE NUMBER 
3290 023644 032737 000020 003516 BIT #GCSCFL ,PCFLAG sIS IT A GCS COMMAND ? 

3291 023652 001403 BEQ 50$ 3NO, BRANCH 

aaoe 023654 016437 000006 010552 MOV CMDSEQ(R4) ,GCSREF sSAVE THE COMMAND REFERENCE NUMBER 
3294 023662 105337 010571 50$: DECB CROLIM sSUBTRACT 1 FROM THE CREDIT LIMIT 
3295 023666 004737 024164 JSR PC, STFPCK sGO FILL THE TMSCP PACKET 

rhe 023672 004737 025730 JSR PC ,PRTORV :GO SEND THE COMMAND 

3298 023676 010564 000016 558: MOV RS ,COLSAV(R4) sSAVE RS IN COMMAND OLD POINTER SAVE 
3299 023702 POP <R5,R3> sRESTORE R3, AND RS 

3300 023706 000207 RTS PC sRETURN 
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CLASS DRIVER RECEIVE 


023710 
023710 
023714 
023720 
023724 
023730 
023732 


023740 
023746 
023750 
023754 
023756 
023764 
023766 
023774 
023776 
024002 


024004 
024012 
024016 
024020 


024022 
024030 
024032 
024040 
024044 
024050 
024054 
024056 


024062 
024070 
024074 
024100 
024102 
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016401 
004737 
005737 
001506 
013737 


022761 
001425 
005761 
001422 
026165 
001416 
023761 
001003 
004737 
000461 


112737 
004737 
000240 
000452 


032761 
001427 
052737 
105237 
062705 
022705 
001002 
012705 


016162 
062702 
022702 
001006 
012702 


000020 
026106 
003414 
003414 
000022 
000000 
000000 
010552 
026534 


000005 
033742 


000200 


100000 
010571 
000950 
004032 


003572 
000012 
000014 
003344 


003264 





003412 
000012 


000000 
000000 


010546 


000010 
010546 


000010 


-SBTTL CLASS DRIVER RECEIVE 
RRRREREERRRER EERE RE EREEEREE EES 


F 
:Class Driver Receive 


3 
:Called By 
:Calls To 
sInputs 

3 


3 
3 
: 
;Register Inputs: 
3 
; 
F 
3 


Registers Used : 


CDORECV:: 
PUSH 
MOV 


5$: CMP 


7$: MOVB 


10$: 


15$: 


: CLSDVR 
: PDRECV, PRTCLR 


<R1,R2> 
RNUSAV(R4),R1 
PC ,PDRECV 
RESP 

35$ 
RESP , HNDLRP 


#ST.SEX,P.STSCR1) 
10$ 

P.CRFCR1) 

10$ 
P.CRFCR1),P.CRFCRS) 
10$ 
ne 
PC ,GCSHDL 

35$ 

#MISSEQ, IOSTAT 

PC ,CORDMP 

35$ 
#OP.END,P.OPCD(R1) 
20$ 

#NURESP , IOSTAT 
CROLIM 

#DCBSTP,RS 
#DCBEND,RS 

15$ 

#DCMDBF , RS 
P.STSCR1), XFERST(R2) 
#PCBSTP,R2 
#PCBEND,R2 


25$ 
#PCMDBF , R2 


SEQ 83 


The number of RESPONSEs found. 

Get Command Status reference number. 
New response buffer save 

Command progress count. 

Error log buffer pointer. 

pointer to program command ring. 
pointer to program command ring. 
block pointer. 

pointer to driver command ring. 
pointer to driver RESPONSE ring. 


sSAVE R1,R2 

sLET R1 = NEW RESPONSE BUFFER SAVE 
sCALL PORT DRIVER RECEIVE 

;DID WE GET A RESPONSE ? 

NO, GET OUT OF HERE 

sSAVE A COPY FOR RSPHDL 


sIS IT A SERIOUS EXCEPTION ? 
sYES, CONTINUE 

sIS IT AN UNSOLICITED ERROR LOG ? 

YES, GO HANDLE ERROR LOG 

sIS THIS THE COMMAND THAT IS EXPECTED ? 
sYES, CONTINUE 

IS IT THE GCS END PACKET 

sNO, GO DO RESPONSE OUT OF SEQUENCE 

+ My By GCS HANDLING ROUTINE 


sSET MISSING SEQUENCE IN I/0 STATUS 


sEXIT 


sYES, IS IT AN END PACKET ? 

s+NO, GO HANDLE ERROR LOG 

s;SET A NEW RESPONSE IN THE I/0 STATUS 
sADD 1 TO THE CREDIT LIMIT 

sADJUST THE OLD COMMAND POINTER 

:IS IT AT THE END OF THE RING ? 

3NO, BRANCH 

sYES, SET IT TO THE TOP OF THE RING 


sPUT REPSONCE STATUS IN THE HOST PACKET 
sADJUST R2 TO POINT AT THE NEXT SLOT 
:IS IT AT THE END OF THE RING ? 

s3NO, BRANCH 

sYES, SET IT BACK TO TOP OF THE RING 
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CLASS DRIVER RECEIVE 


3359 024106 


3361 024110 
3362 024116 
3363 024122 
3364 024126 
3365 024132 
3366 024134 


3368 024140 
3369 024144 


3371 024146 
3372 024152 
3373 024156 
3374 024162 


000403 


052737 
005337 
062701 
026401 
001002 
016401 


005737 
001275 


005037 
010164 


000207 


040000 
003414 
000104 
000160 


000156 
003414 


003414 
000020 


010546 20S: 
25%: 


308: 


35%: 


2s$ 


#ERRLOG, IOSTAT 
RESP 
#ORBSTP,R1 
URBEND(R4),R1 


30$ 
URSPBFCR4),R1 
RESP 

5$ 


RESP 
R1,RNUSAV(R4) 
<R2,R1> 

PC 





sBRANCH TO THE END 


sSET ERROR LOG IN I/0 STATUS 
sSUBTRACT 1 FROM THE RESPONSE COUNT 
sADJUST R1 

sIS IT AT THE END OF THE RING ? 

3NO, KEEP GOING 

sYES, SET IT TO BEGINNING OF THE RING 


sHAVE WE DONE ALL THE RESPONSES ? 
sNO, DO IT AGAIN 


;CLEAR NOW IN CASE WE MADE ERROR EXIT 
;SAVE THE NEW RESPONSE BUFFER POINTER 
sRESTORE R2,R1 
;RETURN 
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COMMAND STUFFER 


3376 
3377 


ee Bana le a oat la 


024164 
024164 
024170 
024174 
024200 
024206 
024212 
024220 
024224 
024230 
024236 
024240 


024244 
024252 
024256 
024264 
024272 
024300 
024302 


024310 
024316 
024320 
024326 


024334 
024340 
024342 
024344 
024350 
024354 
024356 
024362 


024366 
024370 
024372 
024374 
024376 
024400 
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005037 
016401 
016461 
005061 
016461 
005061 
005061 
032737 
001402 
000137 


016361 
005061 
016337 
042737 
022737 
001003 
052761 


032764 
001406 
052761 
042764 


116302 
006202 
006202 
042702 
022702 
103002 
000137 
000172 


024436 
024442 
024462 
024502 
024522 
024542 


020000 
000002 


000000 
177701 
000046 


025604 
024366 


000000 
000004 


003516 


000014 
003530 
003530 
003530 
000012 
000026 


000012 
000026 


-SBTTL COMMAND STUFFER 
Pirtrrirititiiiitiititittttit ty 


’ 
; Stuff TMSCP Command Packet 


; 
;Called By 
:Inputs 

; 

; 


F 
;Outputs 


sRegister Inputs: 


; 
sRegisters Used : 


STFPCK:: 


S$: MOV 


10$: 


15$: 


20$: 

CMDTBL: .WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


: CLSDRV 

: CNUSAV - 
CMDSEQ - 
GCSREF - 
SEREXP - 

: PCKSIZ - 


<R1,R2> 

PCKSIZ 

CNUSAV(R4),R1 
CMDSEQ(R4),P.CRFCR1) 
P.CRF+2(R1) 
TKUNITCR4) ,P.UNITCR1) 
P.UNIT+2(R1) 
P.MODC(R1) 

er rare 


GCMDST 


ITMOFFC(R3),P.BCNTCR1) 
P.BCNT+2(R1) 
CMD(R3),R8 

#177770,R8 

#REVBIT,R8 

10$ 

#MD.REV,P.MODCR1) 


#SEREXC, LUNFLG(R4) 
15$ 


#MD.CSE,P.MODCR1) 
#SEREXC, LUNFLG(R4) 


en 


ILCMD 
SCMDTBLC(R2) 


NULL 
READ 
WRITE 
CHODAT 
ACCESS 
SPCREC 


Points to next slot in the driver command ring. 
Number appended to each command packet. 

Get Command Status reference number. 

Flag set non-zero on occurrence of a serious exception. 
Length in bytes of the command packet. 
R3 - New pointer to program command ring. 

R4 - Lun block pointer. 

RS - Old pointer to driver command ring. 

Ri - New pointer to driver command ring. 


sSAVE R1 AND R2 

sCLEAR PACKET SIZE 

sLET R1 EQUAL THE NEW COMMAND POINTER 
sPUT COMMAND SEQUENCE NUMBER INTO PACKET 
sCLEAR THE UPPER WORD 

sPUT THE UNIT NUMBER INTO THE PACKET 
sCLEAR THE UPPER WORD 

s;CLEAR MODIFIERS FIELD 

sARE WE IN GCS COMMAND MODE ? 

NO, CONTINUE 

YES, GO DO A GET COMMAND STATUS 


sPUT THE BYTE COUNT INTO THE PACKET 
s;CLEAR THE UPPER WORD 

sPUT THE PRIMITIVE IN R8 

;sGET JUST THE MODIFIERS 

IS THE COMMAND A REVERSE ? 

sNO, BRANCH 

sYES, SET REVERSE IN THE MODIFIER FIELD 


sIS IT A SERIOUS EXCEPTION CONDITION ? 
sNO, BRANCH 

sYES, SET CLEAR SERIOUS EXCEPTION 
sCLEAR SERIOUS EXCEPTION FLAG 


;PUT THE COMMAND PRIMITIVE INTO R1 
: 


i 

sADJUST FOR THE CASE STATEMENT 
sARE WE IN THE RANGE ? 

sYES, KEEP GOING 

sNO, HANDLE AN ILLEGAL COMMAND 
sSELECT 














GLOBAL AREAS MACRO YOS.02 Friday 12-Jul-85 09:00 Page 44-1 SEQ 86 
COMMAND STUFFER 

3433 024402 024610 -WORD SKPTMK 
3434 024404 024664 -WORD SPCOBJ 
3435 024406 024722 -WORD WTAPMK 
3436 024410 024750 -WORD ERASE 
3437 024412 025006 -WORD  ERASGP 
3438 024414 025026 -WORD AVALAB 
3439 024416 025064 -WORD ONLINE 
3440 024420 025162 -WORD SUNCHR 
3441 024422 025254 -WORD REWIND 
3442 024424 025342 -WORD INIT 
3443 024426 025346 -WORD ABOR 
3444 024430 025400 -WORD GCMDST 
3445 024432 025440 -WORD GUNSTA 
Saat 024434 025466 -WORD SCNTCH 

44 
aes 024436 000137 025700 NULL:  JMP COME XI sEXIT 

449 
3450 024442 012761 000041 000010 READ: MOV #0P.RD,P.OPCDCR1) sPUT THE READ OPCODE INTO THE PACKET 
3451 024450 012737 000034 010564 MOV #34 ,PCKSIZ sPUT THE PACKET SIZE INTO THE PACKET 
cane 024456 000137 025616 JMP BUFOSC sGOTO THE BUFFER DESCRIPTOR ROUTINE 
3454 024462 012761 000042 000010 WRITE: MOV #OP.WR,P.OPCOCR1) sPUT THE WRITE OPCODE INTO THE PACKET 
3455 024470 012737 000034 010564 MOV #34 ,PCKSIZ sPUT THE PACKET SIZE INTO THE PACKET 
p24 024476 000137 025616 JMP BUFDSC ;GOTO THE BUFFER DESCRIPTOR ROUTINE 

4 
3458 024502 012761 000040 000010 CHODAT: MOV #0P.CMP,P.OPCD(Ri) sPUT COMPARE HOST DATA OPCODE IN PACKET 
3459 024510 012737 000034 010564 MOV #34 , PCKSIZ sPUT THE PACKET SIZE INTO THE PACKET 
cor 024516 000137 025616 JMP BUFDSC ;GOTO THE BUFFER DESCRIPTOR ROUTINE 

61 
3462 024522 012761 000020 000010 ACCESS: MOV #0P.ACC,P.OPCDCR1) sPUT THE ACCESS OPCODE INTO THE PACKET 
3463 024530 012737 000020 010564 MOV #20,PCKSIZ sPUT THE PACKET SIZE INTO THE PACKET 
coon 024536 000137 025650 JMP SUPRES sGOTO THE SUPPRESS ROUTINE 
3466 024542 012761 000045 000010 SPCREC: MOV #0P.REP,P.OPCDC(R1) sPUT REPOSITION OPCODE INTO THE PACKET 
3467 024550 005061 000020 CLR P.TMGC(R1) s;CLEAR THE TAPE MARK COUNT 
3468 024554 005061 000022 CLR P. TMGC+2(R1) sCLEAR THE UPPER WORD 
3469 024560 032737 000002 003530 BIT #EOTBIT,RS sIS THE DETECT LEOT BIT SET ? 
3470 024566 001403 BEQ 70$ sNO, CONTINUE 
3471 024570 052761 000200 000012 BIS #MD.OLE,P.MODCR1) sYES, SET DETECT LEOT IN THE MODIFIER 
3472 024576 012737 000024 010564 70%: MOV #24, PCKSIZ sPUT THE PACKET SIZE INTO THE PACKET 
3473 024604 000137 025650 JMP SUPRES s;GOTO THE SUPPRESS ROUTINE 
3474 
3475 024610 012761 000045 000010 SKPTMK: MOV #OP.REP,P.OPCD(R1) sPUT THE REPOSITION OPCODE IN PACKET 
3476 024616 016161 000014 000020 MOV P.BCNTCR1),P.TMGCCR1) ;PUT THE TAPE MARK COUNT IN PACKET 
3477 024624 005061 000022 CLR P. TMGC+2(R1) ;CLEAR THE TAPE MARK FIELD 
3478 024630 005061 000014 CLR P.BCNTCR1) s;CLEAR THE UPPER WORD 
3479 024634 032737 000002 003530 BIT #EOTBIT,RS sIS THE DETECT LEOT BIT SET ? 
3480 024642 001403 BEQ 100$ sNO, CONTINUE 
3481 024644 052761 000200 000012 BIS #MD.OLE,P.MODCR1) sYES, SET DETECT LEOT IN THE MODIFIER 
3482 024652 012737 000024 010564 100%: MOV #24 ,PCKSIZ sPUT THE PACKET SIZE INTO THE PACKET 
ed 024660 000137 025650 JMP SUPRES s;GOTO THE SUPPRESS ROUTINE 

484 
3485 024664 012761 000045 000010 SPCOBJ: MOV #OP .REP,P.OPCD(R1) sPUT THE REPOSITION OPCODE IN PACKET 
3486 024672 052761 000004 000012 BIS #MD.O0BC,P.MODCR1) sSET THE OBJECT BIT IN THE MODIFIER 
3487 024700 005061 000020 CLR P.TMGC(R1) sCLEAR THE TAPE MARK FIELD 
3488 024704 005061 000022 CLR P.TMGC +2(R1) s;CLEAR THE UPPER WORD 
3489 024710 012737 000024 010564 MOV #24 ,PCKSIZ sPUT THE PACKET SIZE INTO THE PACKET 
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COMMAND STUFFER 


ste 024716 


3492 024722 
3493 024730 
3494 024736 
3495 024744 


3497 024750 
3498 024756 
3499 024764 
3500 024766 
3501 024774 
3502 025002 


3504 025006 
3505 025014 
3506 025022 


3508 025026 
3509 025034 
3510 025042 
3511 025044 
3512 025052 
3513 025060 


3515 025064 
3516 025072 
3517 025076 
3518 025102 
3519 025106 
3520 025112 
3521 025116 
3522 025122 
3523 025126 
3524 025132 
3525 025136 
3526 025144 
3527 025150 
3528 025156 


3530 025162 
3531 025170 
3532 025174 
3533 025200 
3534 025204 
3535 025210 
3536 025214 
3537 025220 
3538 025224 
3539 025230 
3540 025234 
3541 025242 
3542 025246 


3544 025254 
3545 025262 
3546 025270 
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000137 


012761 
052761 
012737 
000137 


012761 
022737 
001403 
052761 
012737 
000137 


012761 
012737 
000137 


012761 
022737 
001403 
052761 
012737 
000137 


012761 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
012761 
005061 
012737 
000137 


012761 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
012761 
905061 
012737 


012761 
052761 
022737 


025650 


000044 
020000 
000014 
025700 


000022 
000003 


000100 
000014 
025700 


000026 
000014 
025700 


000010 
000004 


000020 
000014 
025700 


000011 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000010 
000042 
000044 
025700 


000012 
000014 
000016 
000020 
000022 
000024 
000026 
000930 
000032 
000034 
000010 
000042 
000044 


000045 
020002 
000003 


000010 
000012 
010564 


000010 
003530 
000012 
010564 


000010 
010564 


000010 
003530 
000012 
010564 


000010 


000040 
010564 


000010 


000040 
010564 
000010 


000012 
003530 


WTAPMK ; 


ERASE: 


20$: 


ERASGP : 


AVALAB : 


10$: 


ONLINE : 


SUNCHR : 


REWIND : 


SUPRES 


#OP.WTM,P.OPCD(R1) 
#MD.CSE,P.MODCR1) 
#14, PCKSIZ 

COME XI 


#0P.ERS,P.OPCDO(R1) 
#IMMBIT,R& 

20$ 
#mMD.IMM,P.MODCR1) 
#14, PCKSIZ 

COME XI 


#OP.ERG,P.OPCOCR1) 
#14, PCKSIZ 
COME XI 


#OP.AVL,P.OPCDCR1) 
#UNLBIT,R8 

10$ 

#MD.UNL ,P.MODCR1) 
#14 ,PCKSIZ 

COMEXTI 


#0P.ONL,P.OPCDC(R1) 
P.UNFL-2(R1) 

. UNFL(R1) 

. UNFL+2(R1) 

. UNFL +4(R1) 

- UNFL +6(R1) 

. UNFL+10(R1) 

. UNFL+12(R1) 

. UNFL+14(R1) 

. DVPMC(R1) 
#TF.BLK,P.FORMCR1) 
P.SPED(R1) 
#44,PCKSIZ 

COME XI 


#0P.SUC,P.OPCD(R1) 
. UNFL-2(R1) 

. UNFLC(R1) 

- UNFL +2(R1) 

- UNFL +4(R1) 

- UNFL +6(R1) 

- UNFL +10(R1) 

- UNFL +12(R1) 

- UNFL+14(R1) 

. DVPM(R1) 
#TF.BLK,P.FORMCR1) 
P.SPED(R1) 

#44 ,PCKSIZ 


#OP.REP,P.OPCDOC(R1) 


vuVvVUUvUUVUU 


VvuUVVUVVUUYU 


SEQ 87 


sGOTO THE SUPPRESS ROUTINE 


sPUT WRITE TAPE MARK OPCODE IN PACKET 
sYES, SET CLEAR SERIOUS EXCEPTION 
sPUT THE PACKET SIZE INTO THE PACKET 
sGOTO THE EXIT 


sPUT THE ERASE OPCODE INTO THE PACKET 
sIS THE IMMEDIATE BIT SET ? 

sNO, CONTINUE 

sYES, SET IMMEDIATE IN THE MODIFIER 
sPUT THE PACKET SIZE INTO THE PACKET 
sGOTO THE EXIT 


sPUT ERASE GAP OPCODE INTO THE PACKET 
sPUT THE PACKET SIZE INTO THE PACKET 
sGOTO THE EXIT 


sPUT AVAILABLE OPCODE INTO THE PACKET 
IS THE UNLOAD BIT SET ? 

sNO, CONTINUE 

sYES, SET UNLOAD IN THE MODIFIER FIELD 
sPUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


sPUT THE ONLINE OPCODE INTO THE PACKET 
s;CLEAR THE UNIT FLAG FIELD 
: 


sCLEAR THE DEVICE PARAMETER FIELD 
sPUT THE TAPE FORMAT INTO THE PACKET 
;CLEAR THE SPEED FIELD 

sPUT THE PACKET SIZE INTO THE PACKET 
sGOTO THE EXIT 


sSET UNIT CHARA. OPCODE INTO THE PACKET 
s;CLEAR THE UNIT FLAG FIELD 


3 

;CLEAR THE DEVICE PARAMETERS FIELD 
sPUT THE TAPE FORMAT INTO THE PACKET 
s;CLEAR THE SPEED FIELD 

sPUT THE PACKET SIZE INTO THE PACKET 


sPUT THE REPOSTITION OPCODE INTO PACKET 


#MD.CSE!MD.RWD,P.MOD(R1) ;SET THE REWIND MODIFIER 


#IMMBIT,RS& 


:IS THE IMMEDIATE BIT SET 


ns a ee ek aah Beate 8 





GLOBAL AREAS 
COMMAND STUFFER 


3547 
3548 
3549 
3550 
3551 
3552 
3553 


025276 
025300 
025306 
025312 
025316 
025324 
025330 
025336 


025342 


025346 
025354 
025362 
025366 
025374 


025400 
025406 
025414 
025420 
025426 
025434 


025440 
025446 
025454 
025462 


025466 
025474 
025500 
025506 
025514 
025522 
025526 
025532 
025536 
025542 
025546 
025552 
025556 
025562 
025564 
025572 
025600 


025604 
025612 


025616 
025624 
025630 
025634 
025640 
025644 
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000137 


012761 
016561 
005061 
012737 
000137 


012761 
£16561 
005061 
012737 
042737 
000137 


012761 
042761 
012737 
000137 


012761 
005061 
012761 
013761 
012761 
005061 
005061 
005061 
005061 
005061 
005061 
005061 
105737 
001003 
052761 
012737 
000137 


052737 
000137 


016361 
005061 
005061 
005061 
005061 
005061 


000100 
000020 
000022 
000024 
000006 


000907 
025722 


000012 
000022 
000024 
000026 
000030 
000032 


000012 


010564 
000026 


000010 
000014 


010564 
000010 
000014 
010564 
003516 


000010 
000012 
010564 
000010 
000014 


000016 
000020 


000034 
010564 


010546 


000020 


INIT: 
ABOR: 


GCMDST : 


GUNSTA: 


SCNTCH: 


5$: 


ILCMD: 


BUFDSC: 


60$ 

MD. IMM,P.MODCR1) 
P. TMGC(R1) 
P.TMGC+2(R1) 
#24,PCKSIZ 
CMDSEQ(R4) 
#EOTPR,LUNFLGCR4 ) 
COMEXI 


EXIT 


#OP.ABO,P.OPCOCR1) 
P.CRFCRS),P.OTRFCR1) 
P.OTRF +2(R1) 
#20,PCKSIZ 

COME XI 


#0P.GCS,P.OPCDCR1) 
P.CRFCRS),P.OTRFCR1) 
P.OTRF +2(R1) 
#20,PCKSIZ 
#GCSCFL,PCFLAG 

COME XI 


#0P.GUS,P.OPCO(R1) 
#MD.CSE,P.MODCR1) 
#14 ,PCKSIZ 

COME XI 


#0P.SCC,P.OPCD(R1) 
P.UNITCR1) 
#MSCPVR,P.VRSNCR1) 
CNTFLG,P.CNTFCRL) 
#HSTIMO,P.HTMOCR1) 
-HTMO+2(R1) 

- TIMECR1) 

- TIME +2(R1) 

. TIME +4(R1) 

. TIME +6(R1) 
-CTPMC(R1) 
.CTPM+2(R1) 
PADING 


5$ 
#BITO,P.CTPMCR1) 
#40,PCKSIZ 

COME XI 


#ILLCMD, IOSTAT 
EXIT 


vuvuvvUvUU 


BUFOFF(R3),P.BUFFCR1) 
P. BUFF +2(R1) 

P.BUFF +4(R1) 

P. BUFF +6(R1) 

P. BUFF +10(R1) 

P. BUFF +12(R1) 





sNO, CONTINUE 

sYES, SET THE IMMEDIATE MODIFIER 
sCLEAR THE TAPE MARK 

s;COUNT FIELD 

sPUT THE PACKET SIZE INTO THE PACKET 
sRESET THE COMMAND SEQUENCE NUMBER 
sCLEAT THE EOT PRINT FLAG 

;GOTO THE EXIT 


sEXIT 


sPUT THE ABORT OPCODE INTO THE PACKET 
sPUT THE OLD CRN INTO THE PACKET 
sCLEAR THE UPPER WORD 

sPUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


sPUT GCS OPCODE INTO THE PACKET 

sPUT THE OLD CRN INTO THE PACKET 
sCLEAR THE UPPER WORD 

sPUT THE PACKET SIZE INTO THE PACKET 
sCLEAR GCS COMMAND MODE ? 

GOTO THE EXIT 


sPUT THE GUS OPCODE INTO THE PACKET 
sCLEAR CLEAR SERIOUS EXCEPTION MODIFIER 
sPUT THE PACKET SIZE INTO THE PACKET 
sGOTO THE EXIT 


sPUT THE SCC OPCODE = THE PACKET 
;CLEAR THE UNIT NUMBER 

sPUT THE MSCP VERSION INTO THE PACKET 
sPUT CONTROLLER FLAGS INTO THE PACKET 
sPUT THE HOST TIMEOUT INTO THE PACKET 
s;CLEAR THE TIME FIELD 

; 

; 

; 


; 

;CLEAR THE FIRDT WORD 

;CLEAR THE SECOND WORD 

sARE WE ALLOWING WRITE PADDING ? 
sYES, DON'T SET THE BIT 

s;SET CNTRL PARAM TO DISABLE PADDING 
sPUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;SET ILLCMD IN THE I/O STATUS 
;GOTO THE ERROR EXIT 


sPUT THE BUFFER ADDRESS INTO THE PACKET 
;CLEAR THE REST OF THE BUFFER FIELD 








GLOBAL AREAS 


COMMAND STUFFER 


3604 025650 


3611 025700 
3612 025704 
3613 025710 
3614 025712 
3615 025716 


3617 025722 
3618 025726 
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105737 (002220 SUPRES: TSTB SERREC 


001003 BNE 105$ 

052761 001000 000012 BIS #MD.SEC,P.MOD(R1) 

105737 002221 105$:  TSTB SERCOR 

001003 ~° BNE COMEXI 

052761 000400 000012 BIS #MD.SER,P.MODCR1) 

062701 000050 COMEXI: ADD #OCBSTP,R1 

022701 004032 CMP #D0CBEND,R1 

001002 BNE 110$ 

012701 003572 MOV #DCMDBF ,R1 

010164 000014 110$: MOV R1,CNUSAV(R4) 
EXIT: POP <R2,R1> 

000207 RTS PC 


eS 


SEQ 89 









sIS SUPPRESS ERROR CORRECTION ENABLED ? 


NO 
sYES, SET SEC MODIFIER 
. SUPPRESS ERROR RECOVERY ENABLED ? 


3N 
sYES, SET THE SER MODIFIER 


sSET THE POINTER TO THE NEXT SLOT 
sARE WE AT THE END OF THE RING ? 
sNO, EXIT 

sYES, SET THE POINTER TO START OF RING 
sSAVE THE POINTER 


sRESTORE R1 
sRETURN 


wre 


GLOBAL AREAS 
PORT DRIVER TRANSMIT 


ee 


025760 


025762 
025766 
025774 
026002 
026010 
026012 
026020 
026026 
026032 
026040 
026044 
026046 


026054 
026060 
026064 
026066 


026072 
026076 
026104 
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016402 
016401 
022702 
001403 
162702 
000402 


062702 
113762 
112762 
013762 
010211 
052761 
042761 
005774 
017437 
005737 
100003 
052737 


062701 
026401 
001002 
016401 
010164 


000207 


177776 
177777 
177774 


000002 
000002 


010566 


010546 





-SBTTL PORT DRIVER TRANSMIT 
jeeh ehhh bhee eee ee eee eeee ee eee 


F 
sPort Driver Transmit 





: 
:Called By : CLSDOVR 

sInputs : CMDSSV - Command descriptor ring pointer. 

: DCDSAV - Driver command ring pointer. 

; CROLIM - Number of open slots in the driver command ring. 


Length in bytes of the command packet. 


; 
sRegister Inputs: R4 - Lun block pointer. 

sRegisters Used : R2 - Pointer to driver command ring. 

; R1 - Pointer to driver command descriptor ring. 


PRTDRV:: 
PUSH <R3,R2,R1> 
MOV CNUSAVC(R4) ,R2 
MOV CMDSSV(R4),R1 
CMP @DCMDBF ,R2 


BEQ i$ 
SUB #O0CBSTP,R2 
BR 5$ 

1$; ADD @0CB3SP,R2 


S$: MOVB CROLIM,CROCR2) 
MOVB #1, CONIDCR2) 
MOV PCKSIZ ,MSGLENC(R2 ) 
MOV R2,(R1) 
BIS #0bN ,HIADDR(R1 ) 
BIC @F LAG, HIADOR(R1) 
TST @TKIPCR4) 

MOV STKSACR4), SAERR 
SAERR 


BPL 10$ 
BIS #IOPDRE, IOSTAT 


10$: ADD @DSPSTP,R1 
cmMP UCDEND(R4),R1 


15$ 
MOV UCDSRG(R4),R1 


15$: MOV R1,CMDSSVC(R4) 
POP  eiaeemiaanatt 


sSAVE R3, R2 AND Ri 

sPOINT R2 AT NEW COMMAND BUFFER SLOT 
sLET Ri POINT TO THE COMMAND DESCRIPTOR 
sIS R2 AT TOP OF DRIVER COMMAND Ring 
sYES, BRANCH 

sNO, SUBTRACT DCBSTP FROM R2 

3 


sYES, ADD OCB3SP TO R2 

sPUT THE CREDIT LIMIT INTO THE PACKET 
sPUT THE CONNECTION TYPE INTO THE PACKET 
sPUT THE PACKET SIZE INTO THE PACKET 
sPUT THE PACKET ADORESS INTO THE DESCRIPTOR 
sSET THE OWNERSHIP BIT OF THE DESCRIPTOR 
sCLEAR TO DESCRIPTOR FLAG BIT 

sREAD THE IP REGISTER 

sSAVE THE SA FOR THE ERROR PRINTOUT 
sREAD THE SA REGISTER 

sBRANCH IF NO ERRORS 

sSET PORT DETECTED ERROR IN I/O STATUS 


sADVANCE THE DESCRIPTOR POINTER 

sARE WE AT END OF THE DESCRIPTOR RING 
3NO, BRANCH 

sYES, SET POINTER TO START OF THE RING 


sSAVE THE POINTER 
sRESTORE R1, R2 AND R3 
sRETURN 








GLOBAL AREAS 
PORT DRIVER RECEIVE 


— 
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016401 
017437 
005737 
100003 
052737 


006364 
032737 
001403 
005737 
001012 


032761 
001006 
005237 
052764 
000403 


042764 
062701 
026401 
001345 


000207 





010566 


010546 


003516 


000002 


000010 


000010 


-SBTTL PORT DRIVER RECEIVE 
jh 06 66606000000000000000 00048 


3 
:Port Driver Receive 


3 
;Called 
s;Inputs 


By 


$ 
;Outputs 


sRegisters Used : 
; 


PDRECV: : 


1$: 


2s: 


5$: 
10$: 


: CORECV 





: URDSRG - RESPONSE descriptor ring. 
UCDSRG - Command descriptor ring. 
: RESP - Number of new RESPONSEs. 


<Ri> 
URDSRGC(R4),R1 
OTKSACR4), SAERR 
SAERR 


1$ 
@IOPDRE , IOSTAT 


SLTUSE(R4) 
ere 
RESP 

S$ 
ee 
RESP 

#B ITO, SLTUSE(R4) 
10$ 


#BITO, SLTUSECR4) 
@O0SPSTP,R1 
7 tenets 


<Ri> 
PC 


R1 - RESPONSE descriptor ring pointer. 


sSAVE R1 

sSET R1 TO THE RESPONSE DESCRIPTOR 
sSAVE THE SA FOR THE ERROR PRINTOUT 
sREAD THE SA REGISTER 

sBRANCH IF NO ERRORS 

sSET PORT DETECTED ERROR IN I/0 STATUS 


sSHIFT BITMAP 

sARE WE IN GCS MODE ? 

sNO, DO ALL RESPONSES 

sHAVE WE GOTTEN A RESPONSE ? 

sYES, GCS MODE ALLOW ONLY 1 RESPONSE 


sIS THE SLOT SET TO US ? 

sNO , BRANCH 

;ADD 1 TO THE RESPONSE COUNT 
;SET SLOT-IN-USE 


sELSE CLEAR THIS SLOT-IN-USE 

sSET THE POINTER TO THE NEXT SLOT 
sARE WE AT THE END OF THE RING ? 
sNO, KEEP GOING TILL WE GET THEM ALL 
sRESTORE R1 
sRETURN 





metre: 





GLOBAL AREAS 


3715 026230 
3716 026230 
3717 026234 
3718 026240 
3719 026244 


3721 026250 
3722 026254 
3723 026256 
3724 026260 
3725 026262 
3726 02626€ 
3727 026270 


3729 026276 
3730 026300 
3731 026304 
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PORT DRIVER CLEAR 


016401 
016402 
162702 


162701 
020201 
001410 
000241 
006064 
103003 
012761 


000764 
000207 


-SBTTL PORT DRIVER CLEAR 


§90606664660606460466600646466466664666666 
3 

sPort Driver Clear 

3 

Called By : CDRECV 


SEQ 92 


sRegister Inputs: R4 - Lun block pointer. 
sRegisters Used : R1 - Current location in the RESPONSE descriptor ring. 


PRICLR:: 
PUSH <R1,R2> 


000164 MOV URDEND(R4),R1 
000162 MOV URDSRG(R4) ,R2 
000004 SUB 04 ,R2 
000004 18: SUB 04,R1 
CMP R2,R1 
BEQ 20$ 
CLC 
000010 ROR SLTUSE(R4) 
BCC 5$ 
100000 000002 MOV #OWN ,HIADDR(R1) 
5$: BR 1s 
20%: PoP <R2,R1> 
RTS PC 





sSAVE Ri AND R2 

sR1 = END OF RESPONSE DESCRIPTOR RING 
sR2 = RESPONSE DESCRIPTOR RING 

sBACK UP POINTER BY A LONGWORD 


sBACK UP POINTER BY A LONGWORD 
sBACKED UP PAST START OF RING? 
sYES - SO GET OUT 

sCLEAR THE CARRY 

sMOVE BITO TO CARY BIT 

sBRANCH IF SLOT NOT USED 

sGIVE SLOT BACK TO PORT 


sLOOK FOR MORE 
sRESTORE R2 AND Ri 
sRETURN 








GLOBAL AREAS 
PORT DRIVER INITIALIZATION 


3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 


026306 
026306 
026316 
026322 
026330 
026334 


026340 
026346 


026350 
026352 
026354 
026360 


026362 
026366 
026370 
026376 
026402 
026404 
026410 
026412 
026414 
026420 


026422 
026426 
026432 
026434 
026436 
026442 
926446 


026450 
026454 
026460 
026462 
025464 
026470 
026474 
026476 


026500 


rrr cS 
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-SBTTL PORT DRIVER INITIALIZATION 
POPPI PIV I TI iriitiiirit iti titty 


3 
sPort Driver Initialization 


a 
:Called By : CLSDRV 


SEQ 93 


sRegister Inputs: R4 - Lun block pointer. 
sRegisters Used : R1 - Current init step in process 


; R2 - Used by the watchdog timer 

: R3 - Initialization date table pointer 

3 

PRTINT:: 

PUSH <R1,R2,R3,R5> sSAVE R1, R2, R3 AND RS 

010174 000000 MOV R1, ATKIP(R4) sINITIALIZE THE ORIVE 
016437 000162 026526 MOV URDSRG(R4) ,INTTBL+2 sPUT RESP DESCRIPTOR ADDRESS IN TABLE 
012703 026524 MOV SINTTBL,R3 sPUT THE TABLE ADDRESS INTO R3 
012701 104000 MOV @SLIERR,R1 3SET UP TO BEGIN AT STEP 1 
012737 000050 010554 LOOP: MOV $40. ,CNTHI sSET UP THE TIME OUT COUNTER 
005002 CLR R2 sCLEAR R2 
005202 ILOOP: INC R2 sINCREMENT HI TIME OUT VALUE ? 
001003 BNE 2s :IF NOT, BRANCH 
005337 010554 DEC CNTHI sELSE, INCREMENT HI TIMEOUT 
001447 BEQ TKERR ;GET OUT, WE'VE TIMED OUT 
037401 000002 2s: BIT @TKSACR4), RL ;TEST FOR STEP BIT FROM DRIVE 
001770 BEQ ILOOP ;LOOP UNTIL SOMETHING SETS 
017437 000002 010566 MOV @TKSACR4), SAERR sSAVE THE SA FOR THE ERROR PRINTOUT 
005737 010566 TST SAERR sCHECK FOR ERROR 
100436 BMI TKERR ;GET OUT ON ERROR 
012374 000002 33; MOV (R3)+, 8TKSACR4S) sWRITE WORD FROM TABLE TO CONTROLLER 
006301 ASL R1 ;SHIFT TO NEXT STEP 
100403 BMI 43 ;GET OUT AFTER THE FOURTH STEP 
052701 100000 BIS ERR ,R1 ;ALSO CHECK FOR ERROR BIT 
000747 BR LOOP ;IF NOT AT LAST STEP LOOP 
016402 000162 4s: MOV URDSRG(R4) ,R2 sPUT THE RESPONSE DESCRIPTOR ADD IN R2 
016403 000156 MOV URSPBF(R4) ,R3 sPUT THE RESPONSE BUFFER ADDRESS IN R3 
010322 5$: MOV R3,(R2)+ sPUT THE BUFF ADD IN THE DESCRIPTOR 
005022 CLR (R2)>+ ;CLEAR THE NEXT WORD 
062703 000104 ADD #DRBSTP,R3 sSTEP TO THE NEXT BUFFER SLOT 
026403 000160 CMP URBEND(R4),R3 sARE WE AT THE END OF THE BUFFER ? 
001371 BNE S$ sNO, KEEP GOING 
016402 000166 MOV UCDSRG(R4),R2 sPUT THE CMD DESCRIPTOR ADDRESS IN R2 
012703 003572 MOV #DCMDBF ,R3 ;PUT THE CMD BUFFER ADDRESS IN R3 
010322 108: MOV R3,(R2)> sPUT THE BUFF ADD IN THE DESCRIPTOR 
005022 CLR (R2)-+ ;CLEAR THE NEXT WORD 
062703 000050 ADD #DCBSTP,R3 sSTEP TO THE NEXT BUFFER SLOT 
0227733 004032 CMP #D0CBEND,R3 sARE WE AT THE END OF THE BUFFER ? 
001371 BNE 10$ 3NO, KEEP GOING 
000402 BR IDONE ;ALL DONE 


012737 000006 010546 TKERR: #INTERR, IOSTAT 


sSET UP FOR A FATAL ERROR 
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PORT DRIVER INITIALIZATION 

3791 026506 005337 003402 IDONE: DEC RSPCNT 

3792 026512 PoP <R5,R3,R2,R1> sRESTORE THE REGISTERS 

Lhe 026522 000207 RTS PC sRETURN 

3795 sINIT DATA TABLE 

37 

3797 026524 111400 INTTBL: -WORD  TKINIT 

3798 026526 000000 -WORD 0 

3799 026530 000000 -WORD O 

3800 026532 000001 -WORD GO 


GLOBAL AREAS 
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GCS RESPONSE HANDLER 


3814 026534 
3815 026534 
3816 026542 
3817 026544 
3818 026552 
3819 026556 
3820 026562 
3821 026570 
3822 026574 
3823 026576 


3825 026602 
3826 026606 
3827 026612 
3828 026616 
3629 026622 
3830 026626 
3831 026632 
3832 026634 
3833 026640 
3834 026642 
3835 026646 
3836 026650 


3838 026652 
3839 026656 
3840 026660 
3841 026664 
3842 026670 
3843 026674 
3844 026676 
3845 026702 
3846 026706 
3847 026712 
3848 026716 
3849 026722 
3850 026726 


3852 026732 
3853 026736 
3854 026740 
3855 026744 
3856 026750 
3857 026754 
3858 026756 


A ee iat Silt te cnt it alall 


-SBTTL GCS RESPONSE HANDLER 


3 9000664640644646666466606464600646 4644 
; 

;GCS RESPONSE HANDLER 

; 

Called By : 

:Calls To : 

sRegister Inputs : 


3 : 
sRegister Inputs : 
3 


GCSHDL:: 
023761 010550 000020 CMP CMSTSV,P.CMSTCR1L) 
101017 BHI S$ 
042737 000040 003516 BIC #GCSRFL,PCFLAG 
005037 003414 CLR RESP 
005037 003412 CLR HNOLRP 
112737 000002 010546 MOVB #IOHUNG, IOSTAT 
004737 033742 JSR PC ,CORDMP 
000240 NOP 
000137 027320 JMP GCSEX7T 

5$: PUSH <R1,R2> 
016401 000016 MOV COLSAVC(R4),R1 
162701 000004 SUB #4,R1 
016402 000014 MOV CNUSAV(R4) ,R2 
162702 000004 SUB #4 ,R2 
022701 003566 CMP #CMDBF1,R! 
001407 BEQ OLD1 
022701 003636 CMP #CMDBF2,R1 
001434 BEQ OLD2 
022701 003706 CMP #CMDBF3,R1 
001461 BEQ OLD3 
0005190 BR OLD4 
022702 003706 OLD1: CMP #CMDBF3,R2 
001004 BNE 5$ 
004737 027322 JSR PC ,EXC1iA2] 
000137 027146 JMP ADJUST 
022702 003756 5$: CMP #CMDBF4,R2 
001006 BNE 10$ 
004737 027344 JSR PC ,EXC2A3 
004737 027322 JSR PC,EXCiA2 
000137 027146 JMP ADJUST 
004737 027366 10$: JSR PC ,EXC3A4 
004737 027344 JSR PC ,EXC2A3 
004737 027322 JSR PC ,EXxC1A2 
000137 027146 JMP ADJUST 
022702 003756 OLD2: CMP #CMDBF4,R2 
001004 BNE 5$ 
004737 027344 JSR PC ,EXC2A3 
000137 027146 JMP ADJUST 
022702 003566 5$: CMP #CMDBF1,R2 
001006 BNE 10$ 
004737 027366 JSR PC,EXC3A4 





SEQ 95 


sANY PROGRESS ? 

sYES, CLKEAN UP THE MESS 
sCLEAR THE GCS MODE FLAG 
; TAKE OFF THE RESPONSE 
sTAKE OFF THE RESPONSE 
;SET HUNG CONTROLLER BIT 


;GET OUT 


sPUT THE OLD POINTER IN R1 

sADJUST TO INCLUDE DESCRIPTOR WORDS 
sPUT THE NEW POINTER IN R2 

sADJUST TO INCLUDE DESCRIPTOR WORDS 
s;OLD POINTER AT BF1 ? 

YES, GO HANDLE IT 
s;OLD POINTER AT BF2 
YES, GO HANDLE IT 
OLD POINTER AT BF3 ? 
YES, GO HANDLE IT 
3NO, GO HANDLE BF4 


sNEW POINTER AT BF3 ? 

sNO, TRY AGAIN 

;GO MOVE COMMAND 1 TO 2 
GO ADJUST THE OLD POINTER 
sNEW POINTER AT BF4 ? 

sNO, TRY AGAIN 

sGO MOVE COMMAND 2 TO 3 
:GO MOVE COMMAND 1 TO 2 
;GO ADJUST THE OLD POINTER 
;GO MOVE COMMAND 3 TO 4 
sGO MOVE COMMAND 2 TO 3 
sGO MOVE COMMAND 1 TO 2 
sGO ADJUST THE OLD POINTER 


sNEW POINTER AT BF4 ? 

sNO, TRY AGAIN 

:GO MOVE COMMAND 2 TO 3 
3GO ADJUST THE OLD POINTER 
sNEW POINTER AT BF1 ? 

sNO, TRY AGAIN 

3GO MOVE COMMAND 3 TO 4 


~~ 
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GCS RESPONSE HANDLER 
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3859 026762 004737 027344 JSR PC ,EXC2A3 sGO MOVE COMMAND 2 TO 3 

3860 026766 000137 027146 JMP ADJUST sGO ADJUST THE OLD POINTER 

3861 026772 004737 027410 10$: JSR PC ,EXC4A1 sGO MOVE COMMAND 4 TO 1 

3862 026776 004737 027366 JSR PC ,EXC3A4 GO MOVE COMMAND 3 TO 4 

3863 027002 004737 027344 JSR PC ,EXC2A3 GO MOVE COMMAND 2 TO 3 

ooea 027006 000137 027146 JMP ADJUST GO ADJUST THE OLD POINTER 

3866 027012 022702 003566 OLD3: CMP #CMDBF1,R2 sNEW POINTER AT BF1i ? 

3867 027016 001004 BNE 5$ sNO, TRY AGAIN 

3868 027020 004737 027366 JSR PC ,EXC3A4 GO MOVE COMMAND 3 TO 4 

3869 027024 000137 027146 JMP ADJUST GO ADJUST THE OLD POINTER 

3870 027030 022702 003636 5$: CMP #CMDBF 2, R2 sNEW POINTER AT BF2 ? 

3871 027034 001006 BNE 10$ sNO, TRY AGAIN 

3872 027036 004737 027410 JSR PC ,EXC4A1 :GO MOVE COMMAND 4 TO 1 

3873 027042 004737 027366 JSR PC ,EXC3A4 sGO MOVE COMMAND 3 TO 4 

3874 027046 000137 027146 JMP ADJUST :GO ADJUST THE OLD POINTER 

3875 027052 004737 027322 10$: JSR PC,EXC1iA2 sGO MOVE COMMAND 1 TO 2 

3876 027056 004737 027410 JSR PC ,EXC4A1 GO MOVE COMMAND 4 TO 1: 

3877 027062 004737 027366 JSR PC ,EXC3A4 :GO MOVE COMMAND 3 T0'4 

ode 027066 000137 027146 JMP ADJUST sGO ADJUST THE OLD POINTER 

3880 027072 022702 003636 OLD4: CMP #CMDBF 2, R2 sNEW POINTER AT BF2 ? 

3881 027076 001004 BNE 5$ sNO, TRY AGAIN 

3882 027100 004737 027410 JSR PC ,EXC4A1 :GO MOVE COMMAND 4 TO 1 

3883 027104 000137 027146 JMP ADJUST sGO ADJUST THE OLD POINTER 

3884 027110 022702 003706 S$: CMP #CMDBF3,R2 sNEW POINTER AT BF3 ? 

3885 027114 001006 BNE 10$ sNO, TRY AGAIN 

3886 027116 004737 027322 JSR PC,EXC1A2 :GO MOVE COMMAND 1 TO 2 

3887 027122 004737 027410 JSR PC,EXC4A1 sGO MOVE COMMAND 4 TO 1 

3888 027126 000137 027146 JMP ADJUST sGO ADJUST THE OLD POINTER 

3889 027132 004737 027344 10$: eSR PC ,EXC2A3 GO MOVE COMMAND 2 TO 3 

3890 027136 004737 027322 JSR PC,EXC1A2 sGO MOVE COMMAND 1 TO 2 

3891 027142 004737 027410 JSR PC ,EXC4A1 sGO MOVE COMMAND 4 TO 1 

3892 

3893 027146 ADJUST: POP <R2,R1> : 

3894 027152 042737 000040 003516 BIC #GCSRFL,PCFLAG sCLEAR THE GCS MODE FLAG 

3895 027160 016137 000020 010550 MOV P.CMST(R1),CMSTSV sPUT THE CMD STATUS INTO THE SAVE LOC 

3896 027166 005037 003414 CLR RESP sTAKE OFF THE RESPONSE 

3897 027172 005037 003412 CLR HNDLRP TAKE OFF THE RESPONSE 

3898 027176 005364 000006 DEC CMDSEQ(R4) sADJUST THE CMDSEQ NUMBER BACK 1 

3899 027202 042737 100000 010546 BIC #NURESP , IOSTAT ;CLEAR THE NEW RESPONSE FLAG IN IOSTAT 

zee 027210 105237 010571 INCB CROLIM s;ADD 1 TO THE CREDIT LIMIT 
1 

3902 027214 062764 000050 000016 ADD #DCBSTP,COLSAV(R4) sADJUST THE OLD COMMAND POINTER 

3903 027222 022764 004032 000016 CMP #DCBEND, COLSAV(R4) sIS IT AT THE END OF THE RING ? 

3904 027230 001003 BNE 5$ NO, BRANCH 

neee 027232 012764 003572 000016 MOV #DCMDBF , COLSAV(R4) sYES, SET IT TO THE TOP OF THE RING 

906 

3907 027240 062705 000050 5$: ADD #DCBSTP,RS sADJUST THE OLD COMMAND POINTER 

3908 027244 022705 004032 CMP #0CBEND,RS IS IT AT THE END OF THE RING ? 

3909 027250 001002 BNE 10$ NO, BRANCH 

ey 027252 012705 003572 MOV #DCMDBF , RS sYES, SET IT TO THE TOP OF THE RING 
11 

3912 027256 062764 000104 000022 10$: ADD #DRBSTP,ROLSAV(R4) sADJUST THE OLD RESPONSE POINTER 

3913 027264 026464 000160 000022 CMP URBEND(R4),ROLSAV(R4) ;IS IT AT THE END OF THE BUFFER ? 

3914 027272 001003 BNE 15$ sNO, KEEP GOING 

3915 027274 016464 000156 000022 MOV URSPBFCR4),ROLSAV(R4) ;YES, SET IT TO BEGINNING OF THE BUFFER 





—— 
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3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 


027302 
027306 
027312 
027314 


027320 
027320 


027322 
027326 
027332 
027334 
027340 
027342 


027344 
027350 
027354 
027356 
027362 
027364 


027366 
027372 
027376 
027400 
027404 
027406 


027410 
027414 
027420 
027422 
027426 
027430 
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062701 
026401 
001002 
016401 


000207 


012701 
012702 
012122 
022701 
001374 
000207 


012701 
012702 
012122 
022701 
001374 
000207 


012701 
012702 
012122 
022701 
001374 
000207 


012701 
012702 
012122 
022702 
001374 
000207 


000104 
000160 


000156 


003566 
003636 


003636 


003636 
003706 


003706 


003706 
003756 


003756 


003756 
003566 


003636 


15$: 


GCSEXT: 


EXCiA2: 


5$: 


EXC2A3: 


5$: 


EXC3A4: 


5$: 


EXC4A1: 


5$: 


ADD 
CMP 
BNE 
MOV 


#ORBSTP,R1 
URBEND(R4),R1 
GCSEXT 
URSPBF(R4),R1 


PC 


#CMDBF1,R1 
#CMDBF 2, R2 
CR1)+,CR2)+ 
#CMDBF2,R1 
S$ 
PC 


#CMDBF2,R1 
#CMDBF3,R2 
(R1)+,CR2)+ 
#CMDBF3,R1 
S$ 

PC 


#CMDBF3,R1 
#CMDBF4,R2 
CR1i)+,CR2)+ 
#CMDBF4,R1 
5$ 

PC 


#CMDBF4,R1 
#CMDBF1,R2 
(R1)+,(R2)+ 
#CMDBF2,R2 
5$ 

PC 









sADJUST Ri 
sIS IT AT THE END OF THE BUFFER ? 
sNO, GET OUT 

sYES, SET IT TO BEGINNING OF THE BUFFER 


sRETURN 


SET R1 TO BF1 

sSET R2 TO BF2 

sMOV BF1 CONTENTS TO BF2 
sHAVE WE MOVED THEM ALL 
sNO, KEEP MOVING IT 
sYES, GET CUT 


sSET R1 TO BF2 

SET R2 TC BFS 

sMOV BF2 CONTENTS TO BF3 
sHAVE WE MOVED THEM ALL 
sNO, KEEP MOVING IT 
sYES, GET OUT 


;SET R1 TO BF3 

;SET R2 TO BF4 

sMOV BF3 CONTENTS TO BF4 
sHAVE WE MOVED THEM ALL 
sNO, KEEP MOVING IT 
sYES, GET OUT 


;SET R1 TO BF4 
sSET R2 TO BF1 
sMOV BF4 CONTENTS TO BF1 
sHAVE WE MOVED THEM ALL 
sNO, KEEP MOVING IT 
sYES, GET OUT 


GLOBAL AREAS 
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3966 027432 
3967 027432 
3968 027434 
3969 027440 
3970 027444 
3971 027446 
3972 027452 


3974 027454 
3975 027460 
3976 027464 
3977 027466 
3978 027474 
3979 027476 
3980 027502 


3982 027504 
3983 027510 
3984 027512 
3985 027520 
3986 027522 
3987 027530 
3988 027532 
3989 027536 
3990 027540 
3991 027542 


3993 027546 
3994 027554 
3995 027556 
3996 027564 
3997 027566 
3998 027574 
3999 027576 
4000 027602 
4001 027604 
4002 027610 
4003 027616 
4004 027620 
4005 027626 
4006 027630 


4008 027634 
4009 027640 
4010 027644 


932761 
001443 
022763 
001023 
022737 
001003 
105737 
001406 
004737 
022737 
001006 
132737 
001402 
004737 


004737 
062703 
026403 


003406 
010546 


031006 
000022 
003412 
000200 
031250 


000012 
000022 
000004 
030316 


000030 
000001 
000241 
000005 
002235 


032564 
000005 


000001 
034074 
027674 


000104 
000160 


000010 


000012 
000026 


003350 
000010 
002114 


002114 
002236 


-SBTTL RESPONSE HANDLER 
ERRSRREAARAEE EERE AREER EE ER ERE 


3 
sRESPONSE HANDLER 
3 

:Called By 


:Calls To 
sRegister Inputs : 


: CMDSEQ 
Ri - UNIT 
;Register Inputs : 


RSPHDL: : 
i PUSH <R3> 
CLR RESPON 
TSTB IOSTAT 
BEQ 5$ 
JSR PC ,ERRDEI 
BR 60$ 
S$: MOV ROLSAV(R4) ,R3 
TST HNDLRP 
BEQ 60$ 
10$: BIT #0P.END,P.OPCDCR3) 
BNE 15$ 
JSR PC ,ERRDEL 
BR 50$ 
15$: TST P.STSCR3) 
BEQ 25$ 
CMP #ST.SEX,P.STSCR3) 
BNE 20$ 
BIS #NOTALY,LUNFLGC(R4) 
BR 4s$ 
20$: JSR PC ,ERRDEC 
BR 30$ 
25$: CLC 
ROL LEOTFL(R4) 
30$: BIT —— DRINUS(R1) 
BEQ 60$ 
CMP 
BNE 
CMP #5,L$TEST 
BNE 35$ 
TSTB TSCMP 
BEQ 40$ 
35$: JSR PC ,CMPDAT 
CMP #5,L$TEST 
BNE 45$ 
403: BITB #BITO, DMPBUF 
BEQ 4s$ 
JSR PC ,BUF DMP 
45$: JSR PC ,DQCMD 
50$: ADD #DRBSTP,R3 
CMP URBEND(R4) ,R3 


: ERRDEI, ERRDEL, ERRDEC, CMPDAT, DQCMD 
NUMBER 


: R4 - LUN BLOCK POINTER 
R3 - POINTER TO CURRENT RESPONSE PACKET 


30 HERE TELLS CMDSEQ ALL'S OKAY 
;DID WE HAVE I/0 TYPE FAILURE? 
sBRANCH AROUND IF NOT 

sELSE DECODE AND PRINT IT 

;GET OUT NOW 


sGET OLD RESPONSE BUFFER POINTER 
sDID WE HAVE ANY RESPONSES ? 
sNO, GET OUT OF HERE 

:IS IT AN END PACKET? 

YES, BRANCH 

;GO HANDLE ERROR LOG PACKET 

;SEE IF THERE'S MORE RESPONSES 


sWAS STATUS “NORMAL”? 

YES - BRANCH 

sIS IT SERIOUS EXCEPTION STATUS? 
sNO - GO HANDLE THE ERROR 

SET THE NO-TALLY FLAG 

sYES, GO DE-QUE THE COMMANDS 

GO HANDLE ERROR STATUS 


;CLEAR THE CARRY BIT 
sROTATE THE CARRY INTO THE LEOT FLAG 


1 WE DROPPED THE UNIT ? 
S - GET OUT 


YE 
py -END!OP.RD,P. OPCD(R3). ;D0ID WE READ THIS TIME ? 


sNO - SKIP DATA COMPARE 

sARE WE IN TEST 5 ? 

sNO - DO DATA COMPARE 

sD0 DATA COMPARES IN TEST 5 ? 
sNO, SKIP DATA COMPARE 

sD0 COMPARE DATA 

sARE WE IN TEST 5 ? 

sNO - DON’T DUMP BUFFER 
sSHOULD WE DUMP RDBUF ? 

sNC - BRANCH ° 


sDEQUEVE THE COMMAND 
sADJUST POINTER TO NEXT PACKET 
sEND OF RESPONSE BUFFER? 


Eadie i acelin ea oe mi not 


SEQ 98 
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RESPONSE HANDLER 


4011 027650 
4012 027652 
4013 

4014 027656 
4015 027662 
4016 

4017 027664 
4018 027670 
4019 027672 


MACRO YOS.02 Friday 12-Jul-85 09:00 Page 50-1 


001002 
016403 


005337 
001301 


010364 
000207 


000156 
003412 


000022 


55$: 


60$: 


BNE 
MOV 


DEC 
BNE 


MOV 
POP 
RTS 


55$ 
URSPBF (R4),R3 


HNDLRP 
10$ 


R3,ROLSAVCR4) 
<R3> 
PC 





SEQ 99 


sNO - BRANCH AROUND 
sPUT POINTER AT BEGINNING OF BUFFER 


sDECREMENT RESPONSE COUNTER 
3GO HANDLE ANOTHER ONE 


sSAVE OLD RESPONSE BUFFER POINTER 





GLOBAL AREAS 
DE-QUEVE COMMAND 


4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 


027674 
027674 
027700 
027704 
027710 
027712 


027716 
027722 
027730 
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004737 
062702 
022702 
001002 
012702 


005337 
012737 
000207 


-SBTTL DE-QUEVE COMMAND 


SRREREEREARAEAASAARERAESE RARER EA ERE 


; 
; DE-QUEVE COMMAND 


F 
:Called By 
:Calls To 


: RSPHDL 
: LGSTAT 


sRegister Inputs : R2 - OLD POINTER TO PROGRAM COMMAND RING 


sRegister Outputs: R2 - UPDATED 
; 


DQCMD: : 

027732 JSR 
000014 ADD 
003344 CMP 

BNE 
003264 MOV 
003402 5$: DEC 
177777 010550 an 





PC ,LGSTAT 
#PCBSTP,R2 
#PCBEND, R2 


5$ 
#PCMDBF ,R2 


RSPCNT 
#-1,CMSTSV 
PC 


sCALL LOG STATS 

sADJUST THE OLD COMMAND POINTER 
sARE WE AT THE END OF THE BUFFER ? 
s3NO, KEEP GOING 

YES, SET IT BACK TO THE TOP 


;DECREMENT THE RESPONSE COUNTER 
sRESET THE GCS PROGRESS COUNT 
sRETURN 


SEQ 100 
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4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 


Kismat cM seas SE ee See. 


027732 
027732 
027740 
027742 
027750 


030122 


030124 
030132 
030134 
030142 
030144 
030152 
030154 
030162 
030170 
030172 
030200 
030204 
030206 
030214 
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022763 
001465 
022763 
001461 
022763 
001455 
066364 
026427 
003406 
162764 
005264 
000766 
026427 
003406 


000004 
000040 
000000 
000020 


000002 
000120 


001750 
000122 


000122 


001750 
000124 


000124 


001750 
000126 


000126 
000120 
000122 
000124 
000126 
000016 
000010 
000350 


000040 
000110 


001750 
000112 


000112 


000026 
000000 


000000 


000120 
001747 


000120 


001747 
000122 


001747 
000124 


001747 


000012 
000012 
000012 


000110 
001747 


000110 


001747 


-SBTTL LOG STATISTICS 


FRSASREAEAAREAEAREREEREE EAA EAEELES 


; 
; LOG STATISTICS 


; 
;Called By 


sRegister Inputs : 


LGSTAT:: 


1$: 


2s: 


3$: 


4$: 


5$: 


6$; 


7$: 


: DQCMD 





SEQ 101 


R2 - OLD PROGRAM COMMAND POINTER 


R4 - LUN BLOCK POINTER 


@NOTALY,LUNFLG(R4) 
10$ 


#ACC ,CMDCR2) 
10$ 

CMD(R2) 

10$ 

#WR, CMDCR2 ) 
5$ 


ITMOFF(R2),WRBYT1(R4) 


~ ain come ciate. 
$ 

#1000. ,WRBYT1ICR4) 
WRBYT2(R4) 


i$ 
en 
$ 


#1000. ,WRBYT2(R4) 
WRBYT3CR4) 


2$ 
WRBYT3(R4), #999. 


4s 
#1000. ,WRBYT3(R4) 
en 

$ 
WRBYT4(R4) , #999. 
o$ 


1 

WRBYT1C(R4) 
WRBYT2CR4) 
WRBYT3(R4) 
WRBYT4(R4) 

10$ 
#ST.T™M,P.STSCR3) 
10$ 
#10,P.STSCR3) 

10 


$ 
#350 ,P.STSCR3) 
10$ 


P. TRBCC(R3) ,ROBYT1CR4) 


-~ tte anette 
$ 

#1000. ,RDBYT1(R4) 
RDBYT2(R4) 

6$ 


RDBYT2(R4) , #999, 
8$ 


sIS THIS NOT TO BE TALLIED ? 

sYES, GET OUT 

sSEE IF COMMAND A READ OR WRITE 

sNO, EXIT SUBROUTINE 

sIS IT A NULL ? 

sYES, EXIT SUBROUTINE 

:IS IT A WRITE ? 

sNO, HANDLE READ 

sYES, ADD THE BYTES WRITTEN TO TOTAL 
;IS IT HIGER THAN 999. ? 

sBRANCH IF IT'S NOT 

sSUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


:IS IT HIGER THAN 999. ? 

BRANCH IF IT'S NOT 

sSUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


:3IS IT HIGER THAN 999. ? 

sBRANCH IF IT‘S NOT 

sSUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


:IS IT HIGER THAN 999. ? 
sBRANCH IF IT’S NOT 

; 

H 

; 


; 
sEXIT 


sWAS THIS A TAPE MARK DURING READ 
YES, GET OUT 

sWAS THIS A DATA ERROR DURING READ 
sYES, GET OUT 

sWAS THIS A DATA ERROR DURING READ 
sYES, GET OUT 

sYES, ADD THE BYTES WRITTEN TO TOTAL 
sIS IT HIGER THAN 999. ? 

sBRANCH IF IT‘S NOT 

sSUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


sIS IT HIGER THAN 999. ? 
sBRANCH IF IT'S NOT 
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4101 030216 162764 001750 000112 SUB #1000. ,RDBYT2(R4) sSUBTRACT 1000. FROM THE LOWER ORDER WORD 
4102 030224 005264 000114 INC RDBYT3(R4) sINCREMENT THE SECOND WORD 

4103 030230 000766 BR 7$ 

4104 030232 026427 000114 001747 8$: CMP RDBYT3(R4) , 4999. :IS IT HIGER THAN 999. ? 

4105 030240 003406 BLE 9$ sBRANCH IF IT'S NOT 

4106 030242 162764 001750 000114 SUB #1000. ,ROBYT3(R4) sSUBTRACT 1000. FROM THE LOWER ORDER WORD 
4107 030250 005264 000116 INC RDBYT4(R4) sINCREMENT THE SECOND WORD 

4108 030254 000766 BR 8$ 

4109 030256 026427 000116 001747 9%: CMP RDOBYT4(R4) , #999. :IS IT HIGER THAN 999. ? 

4110 030264 003410 BLE 10$ sBRANCH IF IT’S NOT 

4111 030266 005064 000110 CLR ROBYT1(R4) ; 

4112 030272 005064 000112 CLR ROBYT2(R4) : 

4113 030276 005064 000114 CLR ROBYT3(R4) ; 

4114 030302 005064 000116 CLR ROBYT4(R4) ; 

4115 030306 042764 000004 000026 10%: BIC #NOTALY,LUNFLG(R4) sCLEAR THE NO-TALLY FLAG BEFORE EXITING 
4116 030314 000207 RTS PC sRETURN 


pee 





GLOBAL AREAS 
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eae 


4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 


4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 


030316 
030316 
030320 
030324 
030330 
030332 
030340 
030344 
030350 
030356 
030360 
030366 
030372 
020400 
030404 
030412 
030414 
030416 


030516 


030520 
030526 
030534 
030540 
030542 
030550 


030552 





MACRO YOS.02 Friday 12-Jul-85 09:00 Page 53 


012737 
022705 
001005 
052737 
004737 
022705 
103003 
012705 
000543 


012737 
016337 
022705 
001004 
012737 
000511 


022705 


000010 
000400 


000100 
030774 
177740 
002000 


000004 
003526 
003400 
003400 
000010 


020256 
000002 
000006 


000010 
031244 


010652 
000013 


000010 
033376 
000023 
000024 
000002 
000000 
000006 


000020 


000016 





003442 


000010 
003350 
003402 
000026 


000026 


003530 


003516 


003406 
003542 


003442 


-SBTTL ERROR DECODE 


FREERAEAEEEAEREAEEAESEAASAAASELEEEE 


F 
; ERROR 
3 

:Called 


DECODE 
By 


;Calls To 


sRegister Inputs : 


H 
ERRDEC:: 


997$: 


999$: 
1$: 


4$: 


S$: 


10$: 


: RSPHDL 


: ERRTLY, PRIERR 
R2 - OLD PROGRAM COMMAND BUFFER POINTER 


<R5> 
XFERSTCR2),R5 
p= a 


#177740,R5 
#2000, XFERST(R2) 


i$ 

#E€0T ,DRINUSCR1) 
VEOT 

CMDCNT ,RSPCNT 
CMDCNT 
#EOTPR,LUNFLGCR4) 
999% 


<R1> 

R1 

@UNTEOT,R1 
R1i,-CSP) 
@UNTEOT, -C SP) 
#2,-(SP) 

SP ,RO 

CS$PNTF 

#6,SP 

<Ri> 
#EOTPR,LUNFLGCR4 ) 
EDCEXT 


@CMOT RS 
13,R5 
4$ 


@ORERFL ,PCFLAG 


PC ,OCTHEX 


#23,R5 
5$ 

24,R5 
ERREXT 


@SEREXC , RESPON 
P.CRFCR3),SECRNS 
@ST.WPR,RS 

10$ 

OWPRB , WRKMSK 
MSKTST 


@ST.TM,RS 


SEQ 103 


;SAVE RS 

;PUT THE COMMAND STATUS IN R5 

sIS IT A UNIT ONLINE ERROR ? 
;BRANCH IF IT ISN'T 

;SET THE ERROR BIT IN THE MASK 
:GO TEST IF IT'S O.K. 

;CLEAR THE UNWANTED BITS 

;IS EOT SET IN TRANSFER STATUS ? 
;BRANCH IF IT ISN'T 

;SET THE DRIVE TO EOT 

sINC THE EOT FLAG 

;SET RESPONSE COUNT TO NUMBER OUT 
sISSUVE NO MORE COMMANDS 

sHAS EOT BEEN PRINTED FOR THIS DRIVE ? 
sD0N'T PRINT IT AGAIN 

sSAVE Ri 

sDIVIDE R1 BY 2 

sPRINT UNIT AT EOT MESSAGE 


sRESTORE R1 
sEOT BEEN PRINTED FOR THIS DRIVE 
sGET OUT 


sPUT THE ERROR TABLE ADDRESS IN R8 
sIS IT A DRIVE ERROR ? 

sNO, CONTINUE 

sSET THE DRIVE ERROR FLAG 

sGO DECODE THE STATUS 

;sIS IT A VALID STATUS ? 

sIT'S VALIO, BRANCH 

sMAKE SURE ITS NOT MORE THAN 24 
sTAKE THE ERROR EXIT 


sSET SERIOUS EXCEPTION 

sSAVE THE CURRENT COMMAND REF @ 
sIS IT A WRITE PROTECT ERROR ?- 
sBRANCH IF IT ISN‘T 

sSET THE ERROR BIT IN THE MASK 

GO TEST IF IT'S O.K. 


sIS IT A TAPE MARK ERROR ? 








GLOBAL AREAS 
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4169 030556 
4170 030560 


oar 


4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 


030566 


030722 
030726 
030730 
030732 
030736 
030744 


030746 
030752 
030754 


030760 
030764 
030766 


030774 
031002 
031004 


031006 
031006 
031010 
031014 
031022 


031026 
031030 
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163737 
005037 
005037 
000137 


132763 


022705 
001002 
000137 


022705 
001020 
012737 


033737 
001120 
000410 


113705 
012737 
042705 


005305 
006305 


020312 
000002 


000006 


010546 
010572 
177770 





000026 


000030 
000030 


003350 


003402 


000011 


003442 


003442 


003442 
003440 


003530 


13%: 


143: 


15$: 


208: 


25%: 


MSKTST: 


ERRDEI:: 


ERREXT: 


15$ 
@SEREXC, LUNFLG(R4) 


LEOTFLC(R4) 
#177774, LEOTFLC(R4) 
ee 


13 
@€0T ,ORINUSCR1) 
VEOT 


CMDCNT ,RSPCNT 
CMDCNT 

RESPON 

EDCEXT 

EF .EOT,P.FLGSC(R3) 
14$ 


EDCEXT 


. TMB ,WRKMSK 


MSKTST 


@ST.ROT,RS 
. 208 


LEOTFL(R4) 
@RDTB, WRKMSK 
MSKTST 


@ST.LED,RS 
25$ 
EDCEXT 


@ST.AVL,RS 
ERREXT 
@AVLB , WRKMSK 


WRKMSK , TSTMSK 
EOCEXT 
ERREXT 


<R5> 
IOSTAT,RS 
#IOERTB,RS 
#177770,R5 


SEQ 104 


sBRANCH IF IT ISN'T 
sSET SERIOUS EXCEPTION 
; 


sINC THE EOT FLAG 

sSAVE Ri 

sDIVIDE Ri BY 2 

sPRINT UNIT AT EOT MESSAGE 


sRESTORE R1 

sSET RESPONSE COUNT TO NUMBER OUT. 
sISSUE NO MORE COMMANDS 

sMAKE SURE WE 

sGET OUT 


sIS THE TAPE MARK AT EOT ? 
sNO, KEEP ON GOING 

sYES, GET OUT 

sSET THE ERROR BIT IN THE MASK 
sGO TEST IF IT'S O.K. 


sIS IT A RECORD DATA TRUNCATED ERROR ? 
sBRANCH IF IT ISN'T 

sCLEAR THE CARRY BIT 

sROTATE THE CARRY INTO THE LEOT FLAG 
sSET THE ERROR BIT IN THE MASK 

sGO TEST IF IT’S O.K. 


sIS IT A LOGICAL END OF TAPE ERROR ? 
sBRANCH IF IT ISN'T 
sGET OUT IF LEOT DETECTED 


sIS IT A UNIT AVAILABLE ERROR ? 
sBRANCH IF IT ISN'T 
sSET THE ERROR BIT IN THE MASK 


sIS IT AN ACCEPTABLE ERROR ? 
sGET OUT IF IT IS 
sOTHERWISE PRINT THE ERROR 


sSAVE RS 

sPUT THE I/0 ERROR CODE INTO R5 
sSET THE ERROR TABLE ADDRESS IN RB 
sCLEAR OFF ALL UNWANTED BITS 


sSUBTRACT 1 FROM RS 
sMULTIPLY RS BY 10(8) 





GLOBAL AREAS 
ERROR DECODE 


4220 031032 
4221 031034 
4222 031036 
4223 031042 
4224 031044 
4225 031050 
4226 031052 
4227 031054 
4228 031056 
$229 031060 
4230 

4231 031062 
4232 031070 
4233 031072 
4234 031190 
4235 031104 
4236 031106 
4237 031114 
4238 031116 
4239 031124 
4240 031126 
4241 031134 
4242 031136 
4243 071144 
4244 021146 
4245 031154 
4246 031160 
4247 031164 
4248 031170 
4249 031172 
4250 031200 
4251 031202 
4252 

4253 031206 
4254 031214 
4255 031216 
4256 031222 
4257 031224 
4258 021232 
4259 031234 
4260 031236 
4261 031240 
$262 031244 
4263 031246 
4264 
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006305 
006305 
063705 


012703 
012523 
012523 
012523 
011513 


022762 
001031 
112737 
004737 
000240 
122762 
001004 
112737 
000413 
122762 
001004 
112737 
000403 
112737 
004737 
105037 
105737 
001604 
122737 
001402 
004737 


132737 
001403 
004737 
000240 
022737 
001004 
010100 
006000 
004737 


000207 


003530 
013262 


000010 


000001 
033742 


000020 
000060 
000100 
000060 
000054 
032050 
013263 
002224 
900003 
032550 
000001 
033742 


000001 


040450 


000010 
013262 


000000 
013263 
000000 
013263 
013263 


013262 


002231 


013262 


1$: 


53: 
ERTLY: 


63: 
83: 


10$: 


EDCEXT: 
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OL SERRTBL RS 
CR5)+,CR3)+ 
CRS)+,CR3)> 
(R5)+,(R3)> 
CRS), CR3) 


<R3> 


OEV.LGP, XFERST(R2) 
ERTLY 
@DEVFAT,ERRTYP 

PC ,CORDMP 


ee 


1 
OHIWRIT,ERRTYP+1 
ERTLY 
Nicest 


@HIWRIT,ERRTYP +1 
ERTLY 

@HIREAD, ERRTYP +1 
PC, ,ERRTLY 
ERRTYP +1 

SOERRP 


6$ 

* (lattes 
$ 

PC,.PRIERR 

#BITO,DMPFLG 
10$ 

PC ,CORDMP 

#DEVFAT,ERRTYP 

EDCEXT 

R1,RO 

RO 

PC .DROPUN 

< 


RS> 


PC 


i 
; 
sADD THE TABLE ADDRESS TO R5 


sSET R3 TO THE GENERIC ERROR TABLE 


sMOVE ERROR TABLE CONTENTS 
sMOVE ERROR TABLE CONTENTS 
sMOVE ERROR TABLE CONTENTS 
sMOVE ERROR TABLE CONTENTS 


31S IS A LONG GAP ENCOUNTERED ? 
sNO, KEEP GOING 

sYES, DROP THE UNIT 

3333;G0 DO IT 


eee 

IS IT A WRITE ? 

sNO TRY AGAIN 

sAND TALLY THE HARD WRITE ERROR 
:GO TALLY THE ERROR 

:IS IT A WRITE TAPE MARK ? 

sNO, MUST BE A READ 

sAND TALLY THE HARD WRITE ERROR 
sTALLY THE ERROR 

TALLY THE HARD READ ERROR 
sTALLY THE ERROR 

sCLEAR UPPER BYTE 

sARE SOFT ERRORS ENABLED ? 
sYES, GO PRINT THE ERROR 

:IS IT A SOFT ERROR ? 

sYES, DON’T PRINT IT 

3GO PRINT THE ERROR 


sSHOULD WE DUMP PROGRAM TABLES? 
s;NO - BRANCH 
GO DO IT 


3IS IT A FATAL ERROR ? 
sNO EXIT 

sMOVE UNIT # # 2 TO RO 
sDIVIDE BY 2 

sDROP DRIVE FROM TESTING 
sRESTORE REGISTERS 
sRETURN 





SEQ 105 





- 





GLOBAL AREAS 
ERROR LOG DECODE 


4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 


ce re el 


031250 
031250 
031254 
031262 
031270 
031272 
031300 
031302 
031310 
031312 
031316 
021322 
021330 
031332 
031336 
031342 
031350 
031356 
031364 
031366 
031372 
031376 
031404 
031406 
031412 
031416 
031424 
031426 
031432 
031436 
031444 
031446 
931452 
031456 
031462 
031470 
031476 
031504 
031506 
031514 
031516 
031524 
031526 
031522 
031536 
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-SBTTL ERROR LOG DECODE 


POV IC IIIT Iii riiititiiiiititi ttt ty 
: 
: ERROR 1.0G DECODE 


; 
Called By 

Calls To 

sInputs : 
;Outputs g 
sRegister Inputs : 
sRegister Outputs: 


ERRDEL:: 

PUSH <R3,R5> 
116237 000000 003536 MOVB CMDCR2),R1i1 
042737 177407 003536 BIC #177407,R1i1 

PUSH <R1> 
122763 000005 000010 CMPB OFM. TPE,L.FMTCR3) 
001420 BEQ S$ 
122763 000000 000010 CMPB OFM. CNT,L.FMTCR3) 
001004 BNE i$ 
012705 011132 MOV @CNTLER,RS 
000137 031736 JMP PRTEXT 
122763 000001 000010 13: CMPB @FM.BAD,L.FMTCR3) 
001004 BNE S$ 
012705 011142 MOV #BADERL RS 
000137 031736 JMP PRTEXT 
016337 000012 003556 53: MOV L.EVNTCR3). EVENT 
042737 177740 003556 BIC 4177740, EVENT 
022737 000007 003556 cmp #ST.CMP,EVEN; 
001004 BNE 10$ 
012705 011152 MOV #CMPERL,RS 
000137 031736 JMP PRTEXT 
022737 000013 003556 10%: cmp #ST.ORV.EVENT 
001004 BNE 15$ 
012705 011162 MOV #DRVERL,RS 
000137 031736 JMP PRTEXT 
022737 000012 003556 i158: CMP #ST.CNT, EVENT 
001004 BNE DATAEL 
012705 011172 MOV #CNTERL,RS 
000137 031736 JMP PRTIXT 
022763 000010 000012 DATAEL: CMP #EV.LGP,L.EVNTCR3) 
001004 BNE is 
012705 011202 MOV #LGPERL,RS 
000137 031736 JMP PRTEXT 
012701 003360 1s: MOV #UNTTBL,R1 
116361 000055 000000 MOVB L.TRKCR3), TRKCR1) 
016361 000056 000002 MOV L.PBLK(R3),PHBC(R1) 
022737 000020 003536 CMP #WR, R11 
001404 BEQ WRERL 
022737 000100 003536 cmp #WT™M Ril 
001026 BNE RDERL 
022763 000150 000012 WRERL: CMP #E€V.COR,L.EVNT(R3) 
001005 BNE is 
105261 000004 INCB SWRCR1) 
012705 011232 MOV #CORERL,RS 
000413 BR 10$ 








SEQ 106 


;GET THE COMMAND PRIMITIVE FOR LATER USE 
;GET JUST THE ROOT PRIMATIVE 
;SAVE R1 

;TAPE TRANSFER ERROR LOG? 

sYES, DECODE IT 

;CONTROLLER ERROR LOG? 

3NO, SEE WHAT IT IS 

;PRINT PACKET 

3GET OUT 

;HOST MEMORY ACCESS ERROR LOG? 
3NO, GET OUT 

;SET UP TO PRINT HOST MEM ACC ERL 
:GO PRINT IT 

;GET A COPY OF THE EVENT CODE 
;GET RID OF THE SUBCODES 

31S IT A COMPARE ERROR ? 

;NO, KEEP GOING. 

;SET UP TO PRINT €RROR 

;GO PRINT THE ERROR 

;I1S IT A DRIVE ERROR ? 

;NO, KEEP GOING 

;SET UP TO PRINT ERROR 

;GO PRINT THE ERROR 

31S IT A CONTROLLER ERROR ? 

;NO, MUST: BE A DATA ERROR 

;SET UP TO PRINT ERROR 

;GO PRINT THE ERROR 

31S IT A LONG GAP ENCOUNTERED ? 
;NO, KEEP TRYING 

;SET UP TO PRINT LGE ERROR 

;GO PRINT IT 

;PUT THE TEMP TABLE ADDRESS IN R1 
;PUT THE TRACK NUMBER IN TEMP 
;PHYSICAL BLOCK NUMBER TO TEMP 
;WAS IT A WRITE COMMAND ? 

;GO HANDLE WRITE ERROR 

31S IT A WRITE TAPE MARK COMMAND ? 
;GO HANDLE READ ERROR LOG 

;IS IT A SOFT ERROR ? 

3NO, INCREMENT HARD ERROR 

;YES, INCREMENT SOFT WRITE ERROR 
;SET UP TO PRINT ERROR 

;KEEP GOING 





GLOBAL AREAS 
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ERROR LOG DECODE 


4323 031540 
4324 031544 
4325 031552 
4326 031554 
4327 031560 
4328 031562 
4329 031566 
4330 031572 
4331 031600 
4332 031602 
4333 031606 
4334 031612 
4335 031616 
4336 031624 
4337 031626 
4338 031632 
4339 031636 
4340 031642 
4341 031646 
4342 031652 
4343 031654 
4344 031662 
4345 031664 
4346 021670 
4347 031672 
4348 031700 
4349 031702 
4350 031706 
4351 031710 
4352 031716 
4353 031720 
4354 021724 
4355 031726 
4356 031732 
4357 031736 
4358 031744 
4359 031750 
4360 031752 
4361 031754 
4362 031756 
4363 031760 
4364 031762 
4365 031766 
4366 031772 
4367 031776 
4368 032000 
4369 032006 
4370 032010 
4371 032016 
4372 032020 
4373 032026 
4374 032030 
4375 032034 
4376 032036 
4377 032042 
4378 032046 


105261 
022763 
001003 
012705 
000402 
012705 
000137 
022763 
001006 
105261 
012705 
000137 
022763 
001006 
105261 
012705 
000137 
105261 
105763 
001025 
122763 
001003 
012705 
000420 
122763 
001003 
012705 
000411 
122763 
001003 
012705 
000402 
012705 
004737 
116237 
012701 
012521 
012521 
012521 
011511 


004737 
105037 
105737 
001017 
122737 
001013 
022737 
001411 
022737 
001405 
105737 
001402 
004737 


000207 


000006 
000050 


011222 
011242 
031732 
000350 
000007 
011262 
031732 
000050 
000007 
011212 
031732 
000005 
000042 
000036 
011272 
000030 
011302 
000026 
011312 
011252 
032174 


000000 
013262 


032132 
013263 
002224 
000003 
000920 
000100 
002225 


032550 


000012 


000012 


000012 


000052 


000052 


000052 


003536 


013262 
003536 
003536 


1$: 


S$: 
108: 
RDERL: 


S$: 


10$: 


15$: 


208: 
SRTBL: 
PRTEXT: 


1$: 
EDLEXT: 
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HWRCR1) 


aaa cesta 


= 


10$ 
@UWEERL ,RS 
SRTBL 


EV.URE,L.EVNT(R3) 


@UREERL ,RS 
SRTBL 


aa taaromle tie 
$ 


HROCR1) 
@ROSTEL,RS 
SRTBL 
SROCR1) 
L.LVLCR3) 


208 
#ECCBC,L.STSCR3) 
10$ 


#€CBERL,RS 

SRTBL 
#ECCTC,L.STSCR3) 
15$ 


#ECTERL,RS 

SRTBL 
#ECCOC,.L.STSCR3) 
20$ 


#ECDERL,RS 
SRTBL 
#RTYERL,RS 
PC, TBLSRT 
CMDC(R2),R11 
#L SERRTBL,R1 
CRS)+,(R1)+ 
(R5)+,(R1)+ 
(R5)+,(R1)+ 
CR5),CR1) 
<Ri> 

PC ,ETLLY 
ERRTYP +1 
SOERRP 


1$ 
+ al acer: 
$ 


#WR,RiL 
EDLEXT 
#WT™M R11 
EDLEXT 
RDSOER 
EDLEXT 
PC,PRIERR 
<R5,R3> 
PC 





SEQ 107 


sINCREMENT HARD WRITE ERROR 
;IS IT A DATA SYNC TIMEOUT ? 
sNO, KEEP TRYING 

;SET UP TO PRINT DST ERROR 

:GO PRINT IT 

:SET UP TO PRINT ERROR 

:GO SORT THE ERROR AND PRINT 
:IS IT A HARD READ ERROR ? 
:NO, HANOLE SOFT READ 

sINC THE HARD READ ERROR 

;SET UP TO PRINT ERROR 

:GO SORT AND PRINT IT 

:IS IT A DATA SYNC TIMEOUT ? 
sNO, KEEP TRYING 

sINC THE HARD READ ERROR 

;SET UP TO PRINT DST ERROR 

:GO SORT AND PRINT IT 

sINC THE SOFT READ ERROR 

sWAS IT RECOVERED BY ECC ? 
3NO, KEEP TRYING 

sWAS THE ERROR ON AN ECC BLOCK ? 
sNO TRY AGAIN 

;SET UP TO PRINT ERROR 

:GO SORT AND PRINT ERROR 

sWAS ERROR ON A TAPE MARK ? 
;TRY AGAIN 

:SET UP TO PRINT ERROR 

:GO SORT AND PRINT ERROR 

sWAS ERROR ON DATA BLOCK ? 
3NO, TRY AGAIN 

;SET UP TO PRINT ERROR 

:GO SORT AND PRINT ERROR 

;SET UP RETRY RECOVERED 

:GO TALLY ERROR IN MEDIA TABLE 
;GET THE COMMAND PRIMITIVE FOR LATER USE 
3R1 = SUPERVISORS ERROR TABLE 
;COPY PROGRAM'S ERROR TABLE 

; TO SUPERVISOR'S 

3 ERROR 

3 TABLE 

sRESTORE Ri 

sTALLY ERROR FIRST 

sDISCARD INFO USED BY ERRTLLY 
;ARE SOFT ERRORS ENABLED ? 
;YES, GO PRINT THE ERROR 

:IS IT A SOFT ERROR ? 

3NO, PRINT IT 

:IS IT A WRITE ? 

;D0N’T PRINT IT 

:IS IT A WRITE TAPE MARK ? 
;DON‘T PRINT IT 

sARE WE PRINTING SOFT READ ERRORS ? 
:NO, DON'T PRINT IT 
:GO PRINT IT 





~- 





GLOBAL AREAS 
ERROR TALLY 


4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 


032050 
032050 
032052 
032060 
032062 
032066 
032074 
032076 
032104 
032106 
032114 
032116 
032122 
032124 
032126 
022130 
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-SBTTL ERROR TALLY 
PrP PI Eiri iriiiritiiititiiitit tt) 


i 
; ERROR TALLY 





SEQ 108 


sSAVE R1 
sIS IT A STATUS ERROR ? 

sYES, GET OUT 

sPUT THE ERROR TYPE IN R1 

:IS IT A MISPOSITION ERROR 

sNO KEEP GOING 

:IS IT A WRITE ? 

sNO TRY AGAIN 

sIS IT A WRITE TAPE MARK ? 

sNO, MUST BE A READ 

sSET IT TO A WRITE MISPOSITON 

sADD THE OFFSET TO THE LUN POINTER 
sINC THE ERROR COUNT 

sRESTORE R1 AND R4 


$ 
:Called By : ERRDEC, ERRDEI, ERRDEL 
3 
ERRTLY:: 
PUSH <R1i> 
122737 000106 013263 CMPB #NOERR ,ERRTYP+1 
001422 BEQ 15$ 
113701 013263 MOVB ERRTYP+1,R1 
122737 000076 013263 CMPB #RMSPOS,ERRTYP +1 
001012 BNE 10$ 
122762 000020 000000 CMPB #WR,CMDCR2) 
001404 BEQ S$ 
122762 000100 9000000 CMPB #W™,CMD(R2) 
001002 BNE 10$ 
112701 000100 5$: MOVB #WMSPOS,R1 
060401 10$: AOD R4,R1 
005211 INC CR1) 
15$: POP <R1i> 
000207 RTS PC 


sEXIT 





GLOBAL AREAS 
ERROR LOG TALLY 


4406 
4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 032132 
4419 032132 
4420 032134 
4421 032142 
4422 032144 
4423 032150 
4424 032152 
4425 032160 
4426 032162 
4427 032166 
4428 032170 
4429 022172 
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122737 
001412 
113701 
060401 
132763 
001402 
062701 
005211 


000207 


000106 
013263 
000001 
000002 


013263 


000055 


-SBTTL ERROR LOG TALLY 
SHRRRRAEEEEAEAEAAEAERE EERE RAEE EERE 


3 
; ERROR LOG TALLY 


; 

:Called By : 
:Calls To : 
sInputs : 
;Outputs : 
sRegister Inputs : 
sRegister Outputs: 


ETLLY:: 
PUSH <Ri> 
CMPB #NOERR ,ERRTYP+1 
BEQ ELTEXT 
MOVB ERRTYP+1,R1 
ADD R4,R1 
BITB #BITO,L.TRKCR3) 
BEQ i$ 
ADO #2,R1 
1$: INC CR1) 
ELTEXT: POP <Ri> 
RTS PC 





SEQ 109 


sSAVE R1 ae 
sIS IT A STATUS ERROR ? Oe 
sYES, GET OUT 3 
sLET R1 = THE ERROR TYPE 

sADD THE LUN BLOCK POINTER TO Ri 

:IS IT AN ODD TRACK NUMBER ? 

sYES, GO TALLY THE ERROR 

sNO, TALLY THE EVEN TRACK 

sINC THE ERROR COUNT 

sRESTORE R1 
s;RETURN 





GLOBAL AREAS 
TABLE SORTER 


4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 032174 
4441 032204 
4442 032210 
4443 032214 
4444 032220 
4445 032222 
4446 032224 
4447 
4448 032226 
4449 032234 
4450 032236 
4451 032242 
4452 032244 
4453 032246 
4454 
4455 032250 
4456 032256 
4457 032260 
4458 032266 
4459 032270 
4460 032274 
4461 032276 
4462 032300 
4463 
4464 032302 
4465 032310 
4466 032312 
4467 032320 
4468 032326 
4469 
4470 032330 
4471 032336 
4472 032340 
4473 032346 
4474 032350 
4475 032356 
032356 
032362 
032366 
032372 
032374 
032376 
4476 032402 


4478 032404 
4479 032410 
4480 032412 
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012701 
016402 
016403 
010205 
020203 
001524 


126162 
101405 
062702 
020203 
001514 
000767 


126162 
001024 
026162 
101405 
062702 
020203 
001477 
000763 


026162 
001007 
066162 
066162 
000477 


026464 
001022 
032764 
001067 
052764 


013746 
012746 
012746 
010600 
104417 
062706 
000451 


016405 
010503 
162703 


003360 
000130 
000134 


000000 
000010 


000000 
000002 
000010 


000002 
000004 
000006 
000134 
000040 
000040 
002074 


036724 
000002 


000006 


000134 
000010 


000000 


000000 
000002 


000002 
000004 
000006 
000132 
000026 
000026 


-SBTTL TABLE SORTER 
ERRAEEREEEREAEDEEEEEREA AERA ERE ERE 


; 
; TABLE SORTER 


3 
;Called By 


: ERRDEL 


sRegister Inputs : 
sRegister Outputs: 


TBLSRT : : PUSH 
V 


i$: CMPB 


S$: CMPB 


10$: CMP 


15$: cmMP 
17$: BIT 


20$: MOV 


<R1,R2,R3,R5> 
#UNTTBL ,R1 
TBLTOPC(R4),R2 
LSTENTCR4),R3 
R2,R5 

R2,R3 

30$ 


TRKCR1), TRKCR2) 
S$ 


#8. ,R2 
R2,R3 
30$ 
i$ 


—_e 
15$ 
PHBCR1),PHBCR2) 
10$ 


#8.,R2 
R2,R3 
30$ 

5$ 


PHBCR1),PHBCR2) 
15$ 


SWRCR1), SWRCR2) 
HWRCR1), HWRCR2 ) 
EXTSRT 


LSTENTC(R4), TBLBTMCR4 ) 
2 


0$ 
#MTBLOV,LUNFLG(R4) 
EXTSRT 

#MTBLOV, LUNFLG(R4) 
#TBLFUL,L$LUN 
L$LUN, -(SP) 
#TBLFUL, -(SP) 
#2,-CSP) 


EXTSRT 
LSTENT(R4),RS 
R3 


#8. ,R3 


sSAVE R1,R2,R3,R5 ON STACK 
sINITIALIZE R1,R2,R3,R5 - 
sFOR LOCAL USAGE 


sFIRST ENTRY? 

sYES, PUT IT IN THE TABLE 
sGET TO THE RIGHT TRACK 
sNEXT UNUSED SLOT ? 

sYES, PUT IT IN THE TABLE 
sMAKE SURE ITS THE SAME TRACK 
sIF OUR OBJ CNT HIGHER 

GO TO NEXT TABLE LOCATION 
sNEXT UNUSED SLOT ? 

sYES, PUT IT IN THE TABLE 
sIF THE ENTRY ALREADY EXIST 
sTHEN ADD THE ERROR COUNT 


sIF THE TABLES FULL, GET OUT 


sMOVE THE TABLE CONTENTS 
sDOWN TO PUT IN THE ENTRY 





SEQ 110 





GLOBAL AREAS 
TABLE SORTER 


4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 


032416 
032424 
032432 
032440 
032446 
032454 
032462 
032466 
032472 
032474 


032476 
032504 
032506 
032510 
032512 
032514 
032516 
032520 
032526 
032532 
032536 
032546 









MACRO YOS.02 Friday 12-Jul-85 09:00 Page 57-1 


116365 
016365 
116365 
116365 
116365 
116365 
162703 
162705 
020502 
101350 


026464 
001715 
020301 
103403 
010103 
010205 
000737 
062764 
005061 
005061 


000207 


000010 
000004 
000006 


000000 25%: 


000002 
000004 
000005 
000006 
000007 


000132 


000134 


308: 


35$: 
EXTSRT: 


TRKCR3), TRKCRS) 
PHBCR3),PHECRS) 
SWRCR3), SWRCRS ) 
SROCR3),SROCRS) 
HWRCR3),HWRCRS ) 
HRDCR3),HROCRS ) 
#8. ,R3 

#8. RS 

RS,R2 

25% 


LSTENTCR4), TBLBTMC(R4) 
17$ 


25$ 

#8. ,LSTENTCR4) 
SWRCR1) 
HWRCR1) 
<R5,R3,R2,R1> 
PC 


SEQ 111 






sKEEP GOING TILL THE RIGHT SLOT 
:IS OPEN 


sIF THE TABLES FULL, GET OUT 


sADJUST THE LAST ENTRY POINTER 
s;CLEAR SOFT ERROR COUNTERS 

s;CLEAR HARD ERROR COUNTERS 
sRESTORE REGISTERS 
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PRINT ERROR 

4506 -SBTTL PRINT ERROR 

4507 {RRRARAREARAAEAAEAAAAAARARAAAAAEERES 

4508 i 

4509 ; PRINT ERROR 

4510 3 

4511 :Called By : ERRDEC, ERRDEI, ERRDEL 

4512 :Calls To : ERROR 

4513 sRegister Inputs : 

4514 sRegister Outputs: 

4515 

4516 032550 PRIERR:: 

4517 032550 010337 003560 MOV R3,R3SAVE ;SAVE R3 

4518 032554 010437 003562 MOV R4 ,R4SAVE sSAVE R4 

4519 032560 ERROR s;ERROR MACRO 

032560 104460 TRAP CSERROR 

Peng 032562 000207 RTS PC ;RETURN 

1 


SEQ 112 


—— 


GLOBAL “aaah 


COMPARE 


4546 


4547 


4550 
4551 


DAT 


032564 
032564 
032564 
032566 
032570 
032572 
032574 
032602 
032604 
032610 
022614 
032616 
032620 
032622 
032624 
032624 
032626 
032630 
032632 
032634 
032640 
032644 
032650 
032654 
032660 
032666 
032674 
032700 
032706 
032710 
032716 
032724 
032730 
032736 
032740 
032744 
032746 
032752 
032756 
032762 
032764 
032766 
032774 
032776 





MACRO YOS.02 Friday 12-Jul-85 09:00 Page 59 


-SBTTL COMPARE DATA 


FRRRERAAEEEAEAEAEASEAARALEAARAALSERE 


; 
; COMPARE DATA 


; 
:Called By 

Calls To 

:Inputs 

;Outputs : 
;Register Inputs : 
sRegister Outputs: 
; 


CMPDAT:: 

PUSH <R1,R2,R3,R5> sSAVE R1,R2,R3,R5 
010146 MOV 1,-(SP) ::;PUSH R1 ON STACK 
010246 MOV R2,-C(SP) ;:;PUSH R2 ON STACK 
010346 MOV R3,-CSP) ::PUSH R3 ON STACK 
010546 MOV R5,-(SP) 3;PUSH RS ON STACK 
026363 000040 000014 CMP P. TRBC(R3), P. BCNTCR3) ;AS MANY BYTES READ AS WRITTEN ? 
001424 BEQ 5$ ;BRANCH IF YES 
012705 011122 MOV #RLST,RS ;PUT THE RLS TABLE ADDRESS IN RS 
012702 013262 MOV #LS$ERRTBL,R2 ;PUT THE ERROR TABLE ADDRES IN R2 
012522 MOV C(R5)+,(R2)+ ;MOV THE RLS TABLE TO THE ERROR TABLE 
012522 MOV CR5)+,(R2)+ F 
012522 MOV CR5)+,CR2)+ 3 
011512 MOV (R5),CR2) 3 

PoP <R5,R3,R2,R1> sRESTORE REGISTERS 
012605 MOV (SP)+,R5 3:POP STACK INTO R5 
012603 MOV (SP)+,R3 ;:;POP STALK INTO R3 
012602 MOV (SP)+,R2 ::POP STACK INTO R2 
012601 MOV C(SP)+,R1 33POP STACK INTO Ri 
004737 032050 JSR PC, ,ERRTLY :GO TALLY THE ERROR 
105037 013263 CLRB ERRTYP +1 ;CLEAR THE LUN POINTER 
004737 032550 JSR PC ,PRIERR ;GO PRINT THE ERROR 
000137 033246 JMP 4s$ ;GET OUT IF THERE WAS AN ERROR 
005037 003444 5$: CLR CMPERR ;CLEAR LOCATION CMPERR 
042764 000020 000026 BIC #0DDFLG,LUNFLG(R4) ;CLEAR THE ODD BYTE COUNT FLAG 
016337 000014 003530 MOV P.BCNTCR3),R8 ;PUT THE TAPE RECORD BYTE COUNT IN R8 
005037 003532 CLR RO ;CLEAR THE BYTE ADDRESS COUNTER 
032737 000001 003530 BIT #BITO,R8 ;IS THE BYTE COUNT ODD 
001406 BEQ 10$ ;BRANCH IF NOT 
042737 000001 003530 BIC #BITO,R8 sMAKE THE COUNT EVEN 
052764 000020 000026 BIS #0DDFLG,_LUNFLG(R4) ;SET THE ODD BYTE FLAG 
012701 003446 10$: MOV #BYTADD,R1 ;LET Ri POINT TO THE ADDRESS TABLE 
022737 000003 002114 CMP #3,L$TEST ;ARE WE IN TEST 3 ? 
001003 BNE 11$ ;NO, SO JUST SET RDBUF IN BUFADR 
012702 070556 MOV #WRTIBUF -2,R2 ;LET R2 POINT TO THE WRITE BUFFER 
000402 BR 12$ 
012702 070560 11$: MOV #WRTBUF ,R2 ;LET R2 POINT TO THE WRITE BUFFER 
012703 050560 12$: MOV #ROBUF ,R3 ;LET R3 POINT TO THE READ BUFFER 
012705 003472 MOV #DATBL,RS ;LET RS POINT TO THE ERROR DATA TABLE 
022322 14$: CMP CR3)+,CR2)+ sCOMPARE THE FIRST WORD OF DATA 
001447 BEQ 25% ;BRANCH IF THEY ARE EQUAL 
126362 177776 177776 CMPB LOBYTECR3),LOBYTECR2) S COMPARE THE LOW BYTE 
001415 BEQ 15$ ;BRANCH IF EQUAL 
005237 003444 INC CMPERR ;ADD 1 TO THE ERROR COUNT 


eR edi let ceeded ssinacioe Santo 


SEQ 113 





GLOBAL AREAS 
COMPARE DATA 


4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 


4617 


ee ee ee ee 


033002 
033006 
033010 
033014 
033022 
033026 
033030 
033034 
033042 
033044 
033050 
033054 
033056 
033062 
033070 
033074 
033076 
033102 
033104 
033112 
033120 
033122 
033130 
033132 
033134 
033136 
033142 
033146 
033150 
033152 
033156 
033162 
033166 
033170 
033174 
033200 
033202 
033204 
033206 
033210 
033210 
033212 
033214 
033216 
033220 
033224 
033230 
033234 
033236 
033236 
033240 
033242 
033244 
033246 
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022701 
001410 
116315 
116265 
013721 
005725 
005237 
126362 
001415 
005237 
022701 
001410 
116315 
116265 
013721 
005725 
005237 
000403 
062737 
023737 
001320 
032764 
001414 
121312 
001412 
005237 
022701 
001405 
111315 
111265 
013721 
005737 
001423 
012705 
012702 
012522 
012522 
012522 
011512 


012605 
012603 
012602 
012601 
004737 
195037 
004737 
000404 


012605 
012603 
012602 
012601 
000207 


003472 


177776 
177776 
194532 


ass 
177777 


003444 
003472 


177777 
177777 
003532 


003532 


000002 
003532 


000020 


003444 
003472 


000001 
003532 
003444 


011112 
013262 


032050 
013263 
032550 


000001 


177777 


000001 


003532 
003530 


000026 


AUT$: 


208: 


25$: 
30$: 


35$: 


40$: 


45$: 


#TBLEND,R1 

15$ 
LOBYTECR3),CRS) 
LOBYTEC(R2),ONECRS) 
RO, CR1)+ 

CR5)+ 


R9 
HIBYTECR3) ,HIBYTECR2) 
20$ 


CMPERR 
#TBLEND,R1 


20$ 

HIBYTECR3), (RS) 
HIBYTECR2) ,ONECRS) 
R9,CR1)+ 


14$ 

#ODDFLG, LUNFLG(R4) 
35$ 

(R3),CR2) 

35$ 

CMPERR 

#TBLEND,R1 

35$ 


CR3),CRS) 
(R2),ONECRS) 
R9,CR1)+ 
CMPERR 

40$ 

#DCMPT RS 

#L $ERRTBL,R2 
CRS)+,CR2)+ 
CRS)+,CR2)+ 
(R5)+,CR2)+ 
CRS),CR2) 
<R5,R3,R2,R1> 
(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 

PC, ,ERRTLY 
ERRTYP +1 

PC ,PRIERR 
45$ 
<R5,R3,R2,R1> 
(SP)+,RS 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 

PC 


sIS THERE ROOM TO SAVE THIS DATA ? 
sBRANCH IF NOT 

sLOW READ BYTE IN SAVE BYTE 

;sLOW WRITE BYTE IN SAVE BYTE 

sSAVE THE ADDRESS FOR PRINTING 
sPOINT RS TO NEXT TABLE LOCATION 
sADD 1 TO THE BYTE COUNT 

s;COMPARE THE HIGH BYTE 

sBRANCH IF THEY ARE THE SAME 

sADD 1 TO THE ERROR COUNT 

sROOM TO SAVE THIS DATA ? 

sBRANCH IF NOT 

sHI READ BYTE TO LOW SAVE BYTE 
sHIGH WRITE BYTE TO HIGH SAVE BYTE 
sSAVE THE ADDRESS TO PRINT 


sPOINT RS TO THE NEXT TABLE LOCATION 


sADD 1 TO THE BYTE COUNTER 
;BRANCH 

sADD 2 TO THE BYTE COUNT 

sHAVE WE COMPARED THEM ALL ? 

sNO, GO DO SOME MORE 

sWAS IT AN ODD BYTE COUNT ? 
sBRANCH IF NOT 

sCOMPARE THE LOW BYTES 

sBRANCH IF THEY MATCH 

sADD 1 TO THE ERROR COUNT 

IS THERE ROOM FOR THIS DATA ? 
sBRANCH IF NOT 

sLOW READ BYTE IN THE LOW SAVE BYTE 
sLOW WRITE BYTE TO HIGH SAVE BYTE 
s;SAVE THE ADDRESS TO PRINT 

sDID WE HAVE ANY ERRORS ? 

sBRANCH TO EXIT IF NOT 


sPOINT RS TO THE DATA COMPARE ERROR TABLE 


sPOINT R2 TO THE ERROR TABLE 


sMOVE THE DATA COMPARE COMPARE TABLE 


;TO THE ERROR TABLE 
. 


F 
sRESTORE THE REGISTERS 
STACK INTO RS 
STACK INTO R3 
STACK INTO R2 
STACK INTO R1 
;GO TALLY THE ERROR 
;CLEAR THE UPPER BYTE OF ERROR TYPE 
3GO PRINT THE ERROR 
sEXIT 
sRESTORE THE REGISTERS 
STACK INTO RS 
STACK INTO R3 
STACK INTO R2 
STACK INTO R1 
;RETURN 



























SEQ 114 
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4619 -SBTTL UNJAM 
4620 FRRSAEEREAEEAEAAREBAEAEESRSEAKAEEEEEEE 
4621 ; 
4622 ; UNJAM 
4623 3 
4624 ;Called By 
4625 :Calls To 
4626 :Inputs 
4627 ;Outputs 3 
4628 sRegister Inputs : 
4629 sRegister Outputs: 
4630 ; 
4631 
4632 033250 UNJAM: ; 
4633 033250 005737 003344 TST DUMPKT ;ARE WE ISSUEING NULL COMMANDS 
4634 033254 001444 BEQ 15$ ;YES , THEN EXIT 
4635 033256 023764 003542 000006 CMP SECRNS , CMDSEQ(R4 ) ;IS IT THE ONLY COMMAND OUT ? 
4636 033264 001440 BEQ 15$ sYES , THEN EXIT 
4637 033266 016437 000006 003436 MOV CMDSEQ(R4) , SAVDIF ;SET UP TO UNJAM THE QUEUES 
4638 033274 163737 003542 003436 SUB SECRNS , SAVDIF ;SUBTRACT CURRENT FROM THE HIGHEST 
4639 033302 063737 003436 003400 ADD SAVDIF ,CMDCNT ;ADJUST THE COMMAND COUNT 
4640 033310 063737 003436 003402 ADD SAVDIF ,RSPCNT sADJUST THE RESPONSE COUNT 
4641 033316 042737 000200 003516 BIC #CMDONE , PCFLAG ;CLEAR THE ALL COMMANDS ISSUED FLAG 
4642 023324 163764 003436 000034 SUB SAVDIF ,OBJUFDL(R4) sADUST THE OBJECT COUNT 
4643 033332 103002 BCC 5$ ;GET OUT IF NO CARRY 
4644 033334 005364 000036 DEC OB JF DH(R4) ;OTHERWISE, ADJUST THE HIGH WORD 
4645 033340 022737 000004 003424 53: CMP #N , SUBCNT 
4646 033346 001002 BNE 10$ 
4647 033350 005037 003424 CLR SUBCNT 
4648 033354 005237 003424 10$: INC SUBCNT 
4649 033360 005337 003436 DEC SAVDIF 
4650 033364 001365 BNE 5$ 
4651 033366 052764 000002 000026 15%: BIS #SEREXC, LUNFLG(R4) ;SET THE SERIOUS EXCEPTION FLAG 
4652 033374 000207 RTS PC ;RETURN 
aoek 033376 ENDMOD 
6 








GLOBAL AREAS 


OCTAL -> HEX CONVERTER 


con 


4656 
4657 


033376 
033376 
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000013 
003552 
177760 
177417 
003554 
003554 
003554 
003552 
011442 
011442 


-SBTTL OCTAL -> HEX CONVERTER 


§ 2664046464 464646464664466446660646464640004 4646 


‘ 
; OCTAL -> HEX CONVERTER 


H 
OCTHEX:: 


P.STS+1(R2),LOHEX 


LOHEX , HIHEX 
#177760,LOHEX 
#177417, HIHEX 
HIHE X 

HIHEX 

HIHEX 

LOHEX 

@HEXTBL , LOHEX 
oe » HIHEX 





sGET THE UPPER STATUS BYTE 
sGET A SECOND COPY 

s;CLEAR THE UNWANTED BITS 
sCLEAR THE UNWANTED BITS 
sSHIFT THE 

i UPPER NIBBLE 

; OVER 3 PLACES 
sSHIFT THE LOWER NIBBLE OVER 1 
sADD ASCII TABLE BASE ADDRESS 
sADD ASCII TABLE BASE ADDRESS 
sRETURN 





SEQ 116 





GLOBAL AREAS 
CLEAR EOT 


rene 


4675 


033562 
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177776 
002314 





-SBTTL CLEAR EOT 


§ 90660 66666066064646060646606464646646 0644044 


; 
s CLEAR EOT 
; 


CLREOT:: 
PUSH <R1,R2,R4> 
MOV R1,-CSP) 
MOV R2,-(SP) 
MOV ‘aati 


MOV #-2.,R1 
MOV @LUNO,R4 


S$: ADD #2.,R1 
ADD #1.,R2 
000154 MOVB @-1, OLDTRK(R4) 
000152 MOV #-1, OLDBLK(R4) 
ADD @LUNSTP,R4 
003350 BIC E0T ,DRINUS(R1) 
CLR VEOT 
10$: CMP LS$UNIT,R2 
BNE 5$ 


PoP <R4,R2,R1> 
MOV (SP)+,R4 
MOV (SP)+,R2 
MOV +S eee 


sSAVE R1, R2, AND R4 
ssPUSH R1 ON STACK 
ssPUSH R2 ON STACK 


+sPUSH R4 ON STACK 


sCLEAR OUT R2 


sSET Ri TO THE FIRST UNIT 
sLET R4 EQUAL THE FIRDT LUN 
sADD 2 TO THE UNIT POINTER 


sADD 1 TO R2 
sINITIALIZE OLD TRACK 
sINITIALIZE OLD BLOCK 


sSET R4 TO THE NEXT LUN 
sCLEAR THE EOT BIT IN DRINUS 


sCLEAR THE EOT FLAG 
sHAVE WE DONE THEM ALL 


sNO, KEEP GOING TILL DONE 


sRESTORE R4, R2, AND 
3:POP STACK INTO R4 
33POP STACK INTO R2 
3;POP STACK INTO R1 

sRETURN 





SEQ 117 










GLOBAL AREAS 
SEED SETUP AND SAVE 


4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 


4706 

707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 


4715 
4716 
4717 
4718 

719 
4720 
4721 
4722 
4723 


4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 


4733 
4734 


033710 
033712 





010146 
010446 
013701 
012704 
016464 
016464 
016464 
062704 
005301 
001363 


012604 
012601 
000207 


010146 
010446 
013701 
012704 

16464 
016464 
016464 
062704 
005301 
001363 


012604 
012601 
000207 





002012 
002314 
000136 
000140 
000142 
000172 


002012 
002314 
000144 
000146 
000150 
000172 


000144 
900146 
000150 


000136 
000140 
000142 
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-SBTTL SEED SETUP AND SAVE 


$9 6066660060606466666060460606666666064646406 


; 
s SEED SETUP 
; 


SOSTUP:: 
PUSH <«R1,R4> 
MOV Ri,-(SP) :3PUSH R1 ON STACK 
MOV R4,-CSP) 33;PUSH R4 ON STACK 


MOV LSUNIT,R1 
MOV ®LUNO,R4 

5$: MOV SED1(R4),SEEDICR4) 
MOV SED2(R4) ,SEED2(R4) 
MOV SED3(R4) ,SEED3(R4) 
ADD @LUNSTP,R4 


ee es oe ee os os oe os Sb pts 


DEC R1 

BNE 5$ 

POP <R4,R1> ; 

MOV (SP)+,R4 +:POP STACK INTO R4 
MOV (SP)+,R1 3:POP STACK INTO Ri 
RTS PC 3 


£OO404604646466 4664646464644 SEK EEE EELES 


; 
; SEED SAVE 
; 


SDOSAVE:: 
PUSH <R1,R4> 
MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV R4,-(SP) 7;PUSH R4 ON STACK 


MOV LSUNIT,R1 
MOV @LUNO,R4 

S$: MOV SEED1(R4),SED1(R4) 
MOV SEEDe(R4), SED2(R4) 
MOV SEED3(R4), SED3(R4) 
ADD SLUNSTP,R4 


oe es ee oe ee oe os oe Sb pts 


DEC R1 

BNE S$ 

PoP <R4,R1> : 

MOV (SP)+,R4 3:;POP STACK INTO R4 
MOV (SP)+,R1 +3POP STACK INTO R1 
RTS PC 3 





SEQ 118 


EE 
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PATTERN CLEAR 
4736 -SBTTL PATTERN CLEAR 
4737 FORSSK KKEE HE HEEEESEEEAEREDAEEES 
4738 : 
4739 : PATTERN CLEAR 
4740 3 
4741 sTHIS ROUTINE DOES NOT SAVE R4 AND THEREFORE SHOULD NOT BE CALLED FROM ANY 
4742 sPLACE OTHER THAN A TEST. 
4743 
4744 033714 PATCLR: 
4745 033714 012704 002314 MOV @LUNO,R4 PF 
4746 033720 005064 000024 1$: CLR PATSAV(R4) : 
4737 033724 022704 003072 CMP @LUN3,R4 ; 
4748 033730 001403 BEQ 2s 3 
4749 033732 062704 000172 ADD #LUNSTP,R4 . 
4750 033736 00077 BR 1$ ; 
4751 033740 000207 2s: RTS PC : 
4752 
4753 
4754 


GLOBAL AREAS 
CORE DUMP 


4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 


4769 


4770 
4771 
4772 


4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 


033742 
033742 
033742 
033744 
033746 
033746 
033750 
033752 
033754 
033756 
033760 
033764 
023770 
023772 
033774 
034000 
034004 
034010 
034010 
034014 
034020 
034024 
034026 
034030 
034034 
034040 
034042 
034044 


034050 
034054 
034060 
034064 
034066 
034072 
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010146 
010246 


010546 
010446 
010346 
010246 
010146 
012746 
012746 
010600 
104417 
062706 
012701 
012702 


016246 
016246 
016246 
011246 
010146 
012746 
012746 
010600 
104417 
062706 


062701 
0627092 
022701 
101351 


000207 


000010 
000010 
010572 


-SBTTL CORE DUMP 


§OO06606064600646466660666646466060644646066604606 
3 

; CORE DUMP 
F 

;THIS ROUTINE IS DESIGNED TO DUMP ALL CRITICAL MEMORY LOCATIONS ON 


sOCCURRENCE OF ERRORS, WHEN ENEABLED BY THE OPERATOR VIA THE SOFTWARE 


sQUESTIONS. IT IS INTENDED PRIMARILY AS AN AID TO DEBUGGING THE 


yr BUT MAY PROVE USEFUL IN ANALYZING CERTAIN DEVICE ERRORS 
; . 


CORDMP : 


1$: 


<«R1,R2> 


R1,-(SP) +sPUSH R1 ON STACK 
R2,-(SP) 3sPUSH R2 ON STACK 


@DUMP ,R1,R2,R3,R4,R5 
RS,-(CSP) 

R4,-(SP) 

R3,-(SP) 

R2,-(SP) 

Ri, -(SP) 

a tie 


6(R2), -(SP) 
4(R2),-(SP) 
2(R2),-CSP) 
(R2),-(SP) 
R1,-(CSP) 
@DUMP2 , -(SP) 
#6,-(SP) 

SP ,RO 

CSPNTF 

#16, SP 


#10,R1 
#10,R2 
#IOERTB,R1 
is 

<R2,R1> 

PC 





sPUT STARING ADDRESS IN R1 
sAND ANOTHER COPY IN R2 


2),6(R2) 


sUPDATE R1 
sUPDATE R2 


sARE WE AT THE END OF DUMP AREA 


sKEEP GOING IF NOT 








GLOBAL AREAS 
BUFFER DUMP 


4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 


4795 
4796 


4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 


034074 
034074 
034100 
034104 
034110 
034110 
034112 
034116 
034122 
034124 
034126 


034132 
034132 
034136 
024142 
024146 
034152 
034154 
034160 
034164 
034166 
034170 
034174 
034200 
034204 
034206 


034210 
034214 
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016301 
012702 


010146 
012746 
012746 
010600 
104417 
062706 


016246 
016246 
016246 
016246 
011246 
012746 
012746 
010600 
104417 
062706 
062702 
162701 
001401 
100351 


000207 


000014 
050560 


020430 
000002 


000006 


000010 
000006 
000004 
000002 


020471 
000006 


000016 
000012 
000012 


-SBTTL BUFFER DUMP 


$ OOS O044442 OFFERED ELE 


; 
; BUFFER DUMP 


; 
at _—- WILL PRINT THE READ BUFFER FOR EVERY RECORD READ IN 
; . 


BUFDMP: 


1$; 


5$: 


<R1,R2> 
P.BCNTCR3),R1 
#ROBUF ,R2 


#DUMP2 ,CR2),2CR2),4(R2),6(R2),10(R2) 


10(R2),-(SP) 
6(R2),-CSP) 
4(R2),-CSP) 
2(R2), -(SP) 
(R2),-CSP) 
#DUMP2 , - (SP) 
#6,-CSP) 






SEQ 121 


sGET NUMBER OF BYTES X-FERRED 
s;GET BUFFER ADDRESS 
sPRINT NUMBER OF BYTES 


sADJUST BUFFER POINTER 
sADJUST BYTE COUNT 

sIF ZERO GET OUT 

sKEEP GOING IF POSITIVE 
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BUFFER DUMP 


4846 034216 


4853 034216 
034216 


4860 034216 
034216 
034220 
034222 

4861 034224 

4862 034232 

4863 034234 

4864 034236 

4865 034242 

4866 034246 

4867 024252 

4868 034260 

4869 034262 


4671 034266 
034266 
034272 
034276 
034300 
034302 

4872 


4873 034306 
034306 
034312 
034316 
034322 
034324 
034326 

4874 


4875 034332 
034332 
034336 
034342 
034344 
034346 

4876 


4877 034352 
034352 
034356 
034362 
034364 
034366 

4878 

4879 034372 


010146 
010446 
010546 
032737 
001015 
005001 
005037 
012704 
013705 
032761 
001402 
000137 


012746 
012746 
010600 
104416 
062706 


013746 
012746 
012746 
010600 
104416 
062706 


012746 
012746 
010600 
104416 
062706 


012746 
012746 
010600 
104416 
062706 


000400 


002074 
002314 
002012 
000010 


035354 


035472 
000001 


000004 


002074 
035475 
000002 


000006 


035541 
000001 


000004 


035606 
000001 


000004 





- TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


BGNMOD 


3+ 
; THE REPORT CODING SECTION CONTAINS THE 





SEQ 122 


; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


BGNRPT 
LS$RPT:: 


PUSH 
MOV 
MOV 
MOV 
003516 BIT 


003350 1%: BIT 


5$: PRINTS 
MOV 


PRINTS 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 


PRINTS 


PRINTS 
MOV 
MOV 
MOV 
TRAP 
ADD 


PRINTS 


<R1,R4,R5> 

R1,-(SP) 

R4,-CSP) 

RS,-(SP) 

#DROPIT ,PCFLAG 
$ 


15$ 


#STATO 
#STATO,-C(SP) 
#1,-CSP) 

SP ,RO 
CSPNTS 

#4 ,SP 


#STAT1,L$LUN 
L$LUN, -CSP) 

#STAT1,-(SP) 
#2,-CSP) 

SP ,RO 

C$PNTS 

#6 ,SP 


#STAT2 


#STAT2,-(SP) 
#1,-CSP) 


#STAT3 
#STAT3,-(CSP) 
#1,-(SP) 

SP ,RO 
CSPNTS 

#4 ,SP 


#STAT4 


3sPUSH R1 ON STACK 
3sPUSH R4 ON STACK 
3sPUSH RS ON STACK 


sARE WE DROPPING A UNIT 

sYES, ONLY PRINT STATS FOR THIS UNIT 
sSET R1 TO FIRST UNIT 

sSTART WITH UNIT 0 

sSTART WITH LUN BLOCK FOR UNIT 0 
sINIT UNIT COUNTER 

sHAS THE DRIVE BEEN DROPPED ? 

sNO, PRINT ITS STATS 

sOTHERWISE GET THE NEXT DRIVE 





SS SS 


_—- 
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REPORT CODING SECTION 

034372 012746 035666 MOV #STAT4,-(SP) 
034376 012746 000001 MOV #1,-(SP) 
034402 010600 MOV SP ,RO 
034404 104416 TRAP CS$PNTS 

anes 034406 062706 000004 ADD #4,SP 

4881 034412 PRINTS #STATS, ay raat S2READ(R4) ,SIWRITCR4), SOWRITC(R4) 
034412 016446 000046 MOV S2WRIT(R4), - (SP) 
034416 016446 000044 MOV SiIWRITCR4),-CSP) 
034422 016446 000042 MOV S2READ(R4),-(SP) 
034426 016446 000040 MOV S1READCR4),-CSP) 
034432 012746 035713 MOV #STATS,-(SP) 
034436 012746 000005 MOV #5,-(SP) 
034442 010600 MOV SP ,RO 
034444 104416 TRAP CS$PNTS 

ase 034446 062706 000014 ADD #14,SP 

2 

4883 034452 PRINTS #STAT6,ECICOR(R4),EC2COR(R4) 
034452 016446 000052 MOV EC2COR(R4), -(SP) 
034456 016446 000050 MOV EC1COR(R4), - CSP) 
034462 012746 035760 MOV #STAT6,-C(SP) 
034466 012746 000003 MOV #3,-(SP) 
034472 010600 MOV SP ,RO 
024474 104416 TRAP CS$PNTS G 

sees 034476 062706 000010 ADD #10, SP 

4885 034502 PRINTS #STAT7,H1READ(R4),H2READ(R4), HiIWRITCR4), HOWRITC(R4) 
034502 016446 000062 MOV H2WRIT(R4), -(SP) 
034506 016446 000060 MOV HiWRITCR4),-CSP) 
034512 016446 000056 MOV H2READ(R4),-(SP) 
034516 016446 000054 MOV H1READC(R4),-CSP) 
034522 012746 036032 MOV #STAT7,-(SP) 
034526 012746 000005 MOV #5,-(SP) 
034532 010600 MOV SP ,RO 
034534 104416 TRAP CS$PNTS 

sees 034536 062706 000014 ADD #14,SP 

4887 034542 PRINTS #STAT8,RTYEC1(R4),RTYEC2(R4) 
034542 016446 000066 MOV RTYEC2(R4),-CSP) 
034546 016446 000064 MOV RTYEC1(R4),-CSP) 
034552 012746 036077 MOV #STAT8,-CSP) 
034556 012746 000003 MOV #3,-(SP) 
034562 010600 MOV SP ,RO 
034564 104416 TRAP CS$PNTS 

a 034566 062706 000010 ADD #10,SP 

4 

4889 034572 PRINTS #STAT9,DTCPER(R4) 
034572 016446 000070 MOV DTCPER(R4),-CSP) 
034576 012746 036151 MOV #STAT9,-C(SP) 
034602 012746 000002 MOV #2,-(SP) 
034606 010600 MOV SP ,RO 
034610 104416 TRAP CS$PNTS 

one 034612 062706 000006 ADD #6 ,SP 

4891 034616 PRINTS #STAT1O,UNDRUN(R4) 
034616 016446 000072 MOV UNDRUNC(R4), -CSP) 
034622 012746 036230 MOV #STAT10,-C(SP) , 
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REPORT CODING SECTION 






SEQ 124 






034626 012746 000002 MOV #2,-CSP) 
034632 010600 MOV SP ,RO 
034634 104416 TRAP CSPNTS 

eave 034636 062706 000006 ADD #6 ,SP 

4893 034642 PRINTS #STAT11,OVRRUN(R4) 
034642 016446 000074 MOV OVRRUNC(R4),-CSP) 
034646 012746 036300 MOV #STAT11, -C(SP) 
034652 012746 000002 MOV #2,-CSP) 
034656 010600 MOV SP ,RO 
034660 104416 TRAP C$PNTS 

neve 034662 062706 000006 ADD #6, SP 

4895 034666 PRINTS #STAT12,RMSPOS(R4),WMSPOS(R4) 
034666 016446 000100 MOV WMSPOS(R4),-(SP) 
034672 016446 000076 MOV RMSPOS(R4),-(SP) 
034676 012746 036352 MOV @STAT12,-(SP) 
034702 012746 000003 MOV #3,-(SP) 
034706 010600 MOV SP ,RO 
034710 104416 TRAP C$PNTS 
034712 062706 000010 ADD #10, SP 

4896 

4897 034716 PRINTS #STAT13,OTHER(R4) 
024716 016446 000102 MOV OTHERCR4), -C SP) 
034722 012746 036413 MOV #STAT13, -CSP) 
034726 012746 000002 MOV #2,-(SP) 
034732 010600 MOV SP ,RO 
034734 104416 TRAP C$PNTS 

ones 034736 062706 000006 ADD #6 ,SP 

4899 034742 PRINTS #STAT14,DROPPD(R4) 
034742 016446 000104 MOV DROPPD(R4),-(SP) 
034746 012746 036436 MOV #STAT14,-C(SP) 
034752 012746 000002 MOV #2,-(SP) 
034756 010600 MOV SP ,RO 
034760 104416 TRAP CSPNTS 

ones 034762 062706 000006 ADD #6 ,SP 

4901 034766 PRINTS #STAT15,WRBYT4(R4) ,WRBYT3C(R4),WRBYT2(R4) ,WRBYTICR4 ) 
034766 016446 000120 MOV WRBYT1(R4),-CSP) 
034772 016446 000122 MOV WRBYT2(R4),-CSP) 
034776 016446 000124 MOV WRBYT3(R4),-CSP) 
035002 016446 000126 MOV WRBYT4(R4),-CSP) 
035006 012746 036461 MOV #STAT15, -(SP) 
035012 012746 000005 MOV #5,-(CSP) 
035016 010600 MOV SP ,RO 
035020 104416 TRAP C$PNTS 

wee 035022 062706 000014 ADD #14,SP 

2 

4903 035026 PRINTS #STAT16,RDBYT4(R4),ROBYT3C(R4),RDBYT2(R4) ,ROBYTICR4) 
035026 016446 000110 MOV RDBYT1(R4),-CSP) 
035032 016446 000112 MOV RDBYT2(R4),-CSP) 
035036 016446 000114 MOV ROBYT3(R4),-CSP) 
035042 016446 000116 MOV RDBYT4(R4),-CSP) 
035046 012746 036533 o MOV #STAT16, -(SP) 
035052 012746 000005 MOV #5 ,-(SP) 
035056 010600 MOV SP ,RO 
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ie 


035060 
035062 
4904 
4905 035066 
035066 
035072 
035076 
035100 
035102 
4906 
4°07 035106 
4908 035114 
4909 035116 
4910 035124 
4911 035130 
4912 
4913 035134 
035134 
035140 
035144 
035150 
035152 
035154 
4914 
4915 035160 
4916 035164 
4917 035166 
4918 035170 
4919 035174 
4920 035176 
4921 
4922 055202 
035202 
035206 
035212 
035214 
035216 
4923 
4924 035222 
035222 
035224 
035230 
035232 
035236 
035240 
035244 
035246 
035252 
035256 
035260 
035264 
035270 
035274 
035276 
035300 
4925 
4926 035304 


104416 
062706 


012746 
012746 
010600 
104416 
062706 


032737 
001117 


016401 
016402 


013746 
012746 
012746 
010600 
104416 
062706 


016103 
020102 
001451 
026103 
001412 
016103 


012746 
012746 
010600 
104416 
062706 


005046 
156116 
005046 
156116 
005046 
156116 
005046 
156116 
016146 
005046 
156116 
012746 
012746 
010600 
104416 
062706 


062701 





MACRO YOS.02 Friday 12-Jul-85 09:00 Page 67-3 


000014 


035472 
000001 
000004 
000100 


000130 
000134 


002074 
036605 
000002 
000006 


000000 


000000 


000000 


035472 
000001 


000004 


000005 
000004 
000007 


000006 
000902 


000000 
036655 
000007 
000020 


000010 





TRAP 
ADD 


PRINTS 


003516 BIT 


PRINTS 
MOV 
MOV 
MOV 
MOV 


TRAP 
ADD 


MOV 
10$: CMP 
BEQ 
CMP 
BEQ 
MOV 


PRINTS 


11$: PRINTS 


C$PNTS 
#14, SP 


@STATO 
#STATO,-(SP) 
#1,-CSP) 

SP ,RO 
CSPNTS 

#4 ,SP 


#NOMDTB ,PCFLAG 
15$ 


<R1,R2,R3> 
TBLTOP(R4),R1 
LSTENTCR4),R2 


#STAT17,L$LUN 
L$LUN, -(SP) 
#STAT17,-CSP) 
#2,-(SP) 

SP ,RO 

C$PNTS 

#6 ,SP 


TRKCR1),R3 
R1i,R2 


12$ 
TRKCR1),R3 
11$ 
TRKCR1),R3 


#STATO 
#STATO,-CSP) 
P) 


ILL), BS SOMCRE 1?» SD MMICRE D0, SENT, O.SADERE 
Pp 


-(S 
ee 
eee 
HRDCR1), (SP) 
-(SP) 


HWRCR1), (SP) 
PHBCR1),-(SP) 
-(SP) 
TRKCR1), (SP) 
#STAT18, -(SP) 
#7, -(SP) 

SP ,RO 

C$PNTS 

#20, SP 


#8. ,R1 


SEQ 125 


sIS THE TABLE TO BE PRINTED 
sNO, GET OUT 


sPOINT R1 TO THE TOP OF THE TABLE 
sPOINT R2 TO THE LAST ENTRY IN TABLE 


sMOV THE TRACK # TO TEMP STORAGE 
sHAVE WE PRINTED ALL ENTRIES ? 
YES, GET OUT ‘ 
sARE WE STILL ON THE SAME TRACK -? 
YES, KEEP GOING 

sMOV THE TRACK # TO TEMP STORAGE 


sSTEP Ri TO THE NEXT TABLE LOCATION 
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4927 
4928 
4929 
4930 
4931 


4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 


4944 
4945 


4946 
4958 


035310 
035312 
035320 
035326 
035330 
035330 
035334 
035340 
035344 
035346 
035350 


035354 


000725 


032764 
001412 


013746 
012746 


032737 
001036 
062704 
062701 
005237 
005305 
901402 
000137 
105737 
001421 


005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104417 
062706 


000167 
001316 









SEQ 126 
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BR 10$ sNO, KEEP PRINTING 
12$: POP <R3,R2,R1> 
000040 000026 BIT #MTBLOV, LUNFLG(R4) IS THE TABLE FULL ? 
BEQ 15$ sNO, GET NEXT DRIVE 
PRINTF #TBLFUL,L$LUN sPRINT TABLE FULL MESSAGE 
002074 MOV L$LUN, -C(SP) 
036724 MOV #TBLFUL, -(SP) 
000002 MOV #2,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
000006 ADD #6 ,SP 
000400 003516 15%: BIT #DROPIT,PCFLAG sARE WE DROPPING A UNIT 
BNE 25$ sYES, ONLY PRINT STATS FOR THIS UNIT 
000172 ADD #LUNSTP,R4 sR4 POINTS TO NEXT LUN BLOCK 
000002 ADD #2,R1 sPOINT R1 TO THE NEXT UNIT 
002074 INC L$LUN sPOINTS TO NEXT UNIT NUMBER 
DEC RS sANY UNITS LEFT TO REPORT? 
BEQ 20$ BRANCH IF NOT 
034252 JMP 1$ sELSE, DO IT AGAIN 
002212 20$: TSTB CLOCK sIS THE CLOCK ENABLED 
BEQ 25$ 3NO, THEN CAN'T PRINT TIME 
PRINTF #TIME,<B,HOURS>,<B,MINUTE>,<B,SECOND>, 
CLR -(SP) 
002215 BISB SECOND , (SP) 
CLR . -(CSP) 
002214 BISB MINUTE , (SP) 
CLR -(SP) 
002213 BISB HOURS, (SP) 
020044 MOV #TIME, -CSP) 
000004 MOV #4,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
000012 ADD #12,SP 
25$: POP <R5,R4,R1> sRESTORE REGS 
EXIT RPT 
-WORD  J$JMP 


-WORD L10007-2-. 











MISCELLANEOUS SECTIONS MACRO YOS.02 Friday 12-Jul-85 09:00 Page 68 
REPORT CODING SECTION 


035472 045 
035475 045 
035541 045 
035606 045 
035666 045 
035713 045 
035760 045 
036032 045 
036077 045 
036151 045 
036230 045 
036300 045 
036352 045 
036413 045 
036436 045 


036461 045 
036533 045 
036605 045 
036655 045 
036724 045 
037010 

037010 


037010 104425 





sFORMAT STATEMENTS FOR PRINT CALLS 


000 STATO: 
04S STATI: 
045 STAT: 
045 STATS: 
045 STAT4: 
045 STATS: 
045 STAT6: 
045 STAT?: 
045 STATS: 
045 STAT9: 


045 STAT10: 
045 STATII1: 
045 STATI2: 
045 STAT13: 
045 STAT14: 
045 STATIS: 
045 STATI6: 
045 STATI7: 
045 STAT18: 
045 TBLFUL:: 


L10007: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
~EVEN 


ENDRPT 
TRAP 


?8N? 

?SNSASTATISTICAL REPORT FOR UNIT #D1? 
?SNSS8SS8SSESSSSSOBAREADSS4NS8SAWRITE? 
28NSSESSESSESSESACH 18S48ACH 28S4SACH 18S4SACH 2? 
?SNSASOFT DATA ERRORS? 

?SNSA RETRY RECOVEREDSS8SD88D8s08N087 

?SNSA ECC CORRECTED sS8SD8ND8SS8NA N.A.? 
?SNSAHARD DATA ERRORS #S88SD88D88D88D87 

?SNSACRC ON ECC BLOCKSSS8SDE8NDSSS8NSA N.A.? 
?SNSADATA COMPARE ERRORS #S8sD8sS8NA N.A.? 
2SNSADATA UNDERRUNSSS78S78S78AN.A.8S68D87 
?SNSADATA OVERRUNSSS8SS8SD8SS8NA N.A.? 
?SNSAMISPOSITIONS SS8SS8SD88S8ND8? 

?SNSAOTHERS #58808? 

?SNSADROPS  #S88D8? 

?SNSABYTES WRITTEN  8D38A,8Z38A,8Z38A ,8Z37 
?SNSABYTES READ SD38A ,SZ38A ,SZ3KA 4737 

?sNSA TRK PHY BLK HWR HRD SWR SRDSN? 
?SNSS28D28S38DSSS3ND38S2ND3NS2ND3NS2ND3? 
?SNSAUNIT 8D18A MEDIA DATA TABLE HAS OVERFLOWEDSNSN? 


C$RPT 





SEQ 127 
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4987 
4988 
4989 
4990 


037012 
037012 


037012 
037012 
037012 
037016 
037020 
037020 


037022 
037022 
037026 
037030 
037030 


027032 
037032 
037036 
037040 
037040 


037042 
037042 
037046 
037050 
037050 


037052 
037060 
037064 


037070 
037074 
037076 
037102 
037104 
037106 
037110 
037114 
037120 


037122 
037124 
037130 


037132 
037136 
037140 
037144 


012700 
104447 


103414 


012700 
104447 


103410 


012700 
104447 


103463 


012700 
104447 


103457 


112737 
005037 
005037 


012701 
010102 
062702 
005021 
020201 
001375 
062701 
022701 
001365 


005021 
022701 
001374 


012701 
005021 
022701 
001374 


000040 


000037 


000035 


000036 


000001. 
003522 
003444 
002314 


000156 


000014 
003264 


003400 


110560 
115620 


-SBTTL INITIALIZE SECTION 


A 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


BGNINIT 
LS$INIT:: 


STINIT:: 
READEF #EF.START 
MOV #EF . START, RO 


TRAP CSREFG 
BCOMPLETE START 
BCS START 


READEF #EF.RESTART 
MOV EF .RESTART,RO 


TRAP CSREFG 
BCOMPLETE START 
BCS START 


READEF #E€F .NEW 
MOV EF .NEW,RO 
TRAP CSREFG 
BCOMPLETE NUPASS 
BCS NUPASS 


READEF #€F .CONTINUE 


MOV #EF . CONTINUE ,RO 


TRAP CSREFG 
BCOMPLETE NUPASS 
BCS 

003564 START: MOVB #1,DAYS 


CLR PASCNT 
CLR CMPERR 


5$: MOV 


ADD @URSPBF , R2 
10$; CLR (R1)+ 

CMP R2,R1 

BNE 10$ 


ADD #14,R1 
CMP #PCMDBF ,R1 


BNE 5$ 

15$: CLR (R1)+ 
CMP #CMDCNT,R1 
BNE 15$ 


MOV #MEDIAS,R1 
20$: CLR (R1)+ 












SEQ 128 


sSET TO FIRST DAY 
s;CLEAR THE PASS COUNTER 
sCLEAR THE COMPARE ERROR COUNTER 


sSET R1 TO THE FIRST LUN 

sLET R2 = Ri 

sLET R2 = THE END OF THE CLEAR AREA 
sCLEAR THE LUN LOCATION 

sARE WE AT THE END OF THE CLEAR AREA 
sNO, KEEP CLEARING 

sSET R1 TO THE NEXT LUN BLOCK 

sHAVE WE DONE THEM ALL 

GO CLEAR THE NEXT LUN BLOCK 


sCLEAR THE LOCATION AND GET THE NEXT 
sHAVE WE CLEARED THEM ALL ? 
3NO, KEEP GOING 


sPUT THE STATS TABLE ADDRESS INTO R1 
sCLEAR THE LOCATION AND GET THE NEXT 
sHAVE WE CLEARED THEM ALL ? 
3NO, KEEP GOING 
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INITIALIZE SECTION 


c 


5031 
5032 
5033 


037146 
037152 
037156 
037164 
037172 


037200 
037204 
037206 


037210 
037210 
037212 
037216 
037220 
037224 


037226 
037226 
037232 
037236 
037240 
037246 


037250 
037254 
037256 
037264 


037266 
037272 
037274 
037302 


037304 


037312 
037316 


037324 
037332 
037340 
037346 
037354 
037360 
037362 


037364 
037370 
037374 
037402 
037406 
037412 
037414 


037422 


012704 
013702 
012764 
012764 
012764 


062704 


005302 
001363 


104433 
005737 
001403 
105737 
001457 


012737 


012704 
012737 


013764 


052737 
012702 





002314 
002012 
001233 
007622 
000000 


000172 


003522 
002226 


002012 
000001 


005040 


000002 
002420 


000003 
001540 


001210 


002314 
110560 


003530 
003530 
003544 
003530 
000172 


003516 
003526 
002012 
003522 
002227 


000100 
003566 


003544 


003544 


003544 
003544 
003530 
000130 
000134 


003530 
000132 


003524 


003516 


NUPASS : 


1$: 


3$;: 


S$: 


10$: 


15$: 


20%: 


258: 


TRAP 


@LUNO, R4 
L$UNIT ,R2 
@RS1,SED1(R4) 
@RS2 ,SED2(R4) 
@RS3,SED3CR4) 


@LUNSTP,R4 
R2 
25$ 


CSRESET 
PASCNT 
1$ 
CLRMED 
25$ 


L$UNIT ,R2 
#1,R2 


3$ 
OULOFF , TBLOFF 
15$ 


#2 ,R2 

5$ 
@U20FF , TBLUFF 
15$ 


#3,R2 

10$ 
#U3OFF , TBLOFF 
15$ 


OU4OFF , TBLOFF 


@LUNO,R4 
#MEDIAS,RS 


R8, TBLTOPCR4) 
R8,LSTENTCR4) 
TBLOFF ,R8 

R8, TBLBTM(R4) 
@LUNSTP,R4 

R2 

20$ 


PCFLAG 

VEOT 

LSUNIT , UDROP 
PASCNT 
@NOMDTB , PCFLAG 


@CMDBF 1,R2 





sSET R4 TO THE FIRST LUN 
sSET UP R2 

sSET UP THE SEED IN THE LUN BLOCK 
sSET UP THE SEED IN THE LUN BLOCK 
sSET UP THE SEED IN THE LUN BLOCK 


sSET UP THE NEXT LUN BLOCK 
sDECREMENT R2 
sDID YOU DO THEM ALL 


sIS THIS THE FIRST PASS ? 

sYES GO CLEAR THE MEDIA TABLE 

sARE WE CLEARING THE MEDIA TABLE ? 
sNO GET OUT 


sSET UP R2 

sIS THERE 1 UNIT ? 

sNO, CHECK AGAIN _ 

sSET OFFSET FOR 1 UNIT IN TBLOFF 
sGO GET STARTED 


IS THERE 2 UNITS ? 

sNO, CHECK AGAIN 

sSET OFFSET FOR 2 UNITS IN TBLOFF 
sGO GET STARTED 


sIS THERE 3 UNITS ? 

sNO, CHECK AGAIN 

sSET OFFSET FOR 3 UNITS IN TBLOFF 
GO GET STARTED 


sSET OFFSET FOR 4 UNITS IN TBLOFF 


sSET R4 TO THE FIRST LUN 
sPUT THE STAT TABLE ADDRESS IN R8 


SEQ 129 


sPUT THE TOP TABLE ADDR IN LUN BLOCK 
sPUT THE TABLE ENTRY ADOR IN LUN BLOCK 


sADD THE LENGTH FOR EACH UNIT 


sPUT THE TABLE BOTTOM POINTER IN LUNBLK 


sSET UP THE NEXT LUN BLOCK 
;DECREMENT R2 
sDID YOU DO THEM ALL 


sCLEAR THE PROGRAM CONTROL FLAG. 
sCLEAR THE EOT FLAG 

sSET UP THE DROP UNIT FLAG 

sADD i TO PASS COUNTER 

IS THE MEDIA TABLE TO BE PRINTED 
sYES, DON'T DO ANYTHING 


s3NO, SET THE PROGRAM CONTROL FLAG BIT 


sPUT COMMAND BUFFER ADDRESS IN R2 











MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


= 


5087 037426 


5101 037472 
5102 037476 


5104 037504 
5105 037512 
5106 037520 
5107 037526 
5108 037534 


5110 037542 


5114 037562 


5116 037564 
037564 
5117 037566 
037566 


5119 037570 
5120 037574 
5121 037600 
5122 037606 


5124 037612 
5125 037616 
5126 037622 
5127 037626 
5128 037630 


5130 037632 
5131 037640 
037640 
037644 
037650 
037654 
037660 
037662 
5132 037666 
5133 037672 
5134 037674 


032761 
001054 


032761 
001002 
005064 
012761 


012764 
012764 


104442 
103011 


011064 
012064 
062764 
011064 


062701 
062703 
062704 
005302 
001310 


042737 


012746 
012746 
012746 
012746 
104437 
062706 
005737 
000240 
000240 


010226 


002314 
002012 





35$: 


000002 


60$: 


003516 
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CLR (R2)+ 

CMP @0SRNGO, R2 

BNE 35$ 

MOV @LUNO, R4 

MOV LSUNIT,R2 

CLR R1 

CLR R3 

BIT OF AIL ,ORINUS(R1) 
BNE 60$ 

BIT @#DROP , DRINUS(R1) 
BNE 50$ 

CLR UNDROP(R4 ) 

MOV @AVB ,ORINUSC(R1) 
MOV @DCMDBF , CNUSAV(R4) 
MOV @DCMDBF , COLSAV(R4) 
MOV UCDSRG(R4) , CMDSSV(R4) 
MOV URSPBF C(R4) ,RNUSAY(R4) 
MOV URSPBF (R4) ,ROLSAV(R4 ) 
CLR CMDSEQ(R4) 

CLR OB JF OL(R4) 

CLR OB JF DHC(R4) 

CLR SLTUSE(R4) 

MOV R3,RO 

GPHARD RO,RO 

TRAP C$GPHRD 

BNCOMPLE TE 60$ 

Bcc 60$ 

MOV CRO), TKIPCR4) 

MOV CRO)+, TKSACR4) 

ADD #2, TKSACR4) 

MOV CRO), TKUNITCR4) 
ADD #2,R1 

ACD #1.,R3 

ADD @LUNSTP ,R4 

DEC R2 

BNE 40$ 

BIC @NCLKFL ,PCFLAG 
SETVEC 4,@NOCLK, #PRIOO 
MOV @PRIOO, - (SP) 

MOV @NOCLK , -(SP) 

MOV 04,-(SP) 

MOV @3,-(SP) 

TRAP CsSvEC 

ADD @10,SP 

TST KWCSR 

NOP 

NOP 





sCLEAR THE BUFFERS 
sARE WE AT THE END OF THE SUFFER ? 
sKEPP GOING TILL WE ARE 


sSET R4 TO THE FIRST LUN 
sSET UP R2 
sCLEAR R1 
sCLEAR R3 


sHAS THIS DRIVE FAILED ? 
sYES, GET NEXT UNIT 


sDID THIS DRIVE DROP LAST TIME 
sYES, KEEP GOING 

sOTHERWISE CLEAR THE DROP COUNTER 
sSET UP ALL DRIVES TO AVAILABLE 


sSET UP NEW COMMAND BUFFER SAVE 
sSET UP OLD COMMAND BUFFER SAVE 
sSET UP COMMAND DESCRIPTOR SAVE 
sSET UP NEW RESPONSE BUFFER SAVE 
sSET UP OLD RESPONSE BUFFER SAVE 


sCLEAR THE COMMAND REFERENCE NUMBER 
sCLEAR THE LOW OBJECT FIELD 

sCLEAR THE HIGH OBJECT FIELD 

sCLEAR THE SLOT IN USE FLAG 

° 


sSET R1 TO THE NEXT UNIT 
sGET NEXT UNIT 

sSET UP THE NEXT LUN BLOCK 
sDECREMENT R2 

sDID YOU DO THEM ALL 


sGET READY TO TEST FOR CLOCK PRESENT 
sSET VECTOR 4 IN CASE NO CLOCK 


sIS THE CLOCK THERE ? 








MISCELLANEOUS SECTIONS 
INITIALIZE SECTION . 


5136 


5137 
5138 
5139 


al ae 


037676 
037676 
037702 
037704 
037712 
037714 
037714 
037720 
037724 
037730 
037734 
037736 
037742 


037750 
037752 
037756 


037762 
037770 
037772 
040000 


040002 
040010 
040014 


040022 
040026 
040032 
040040 


040042 
040050 
040054 
040062 
040066 
040072 
040100 


040102 
040110 
040114 
040122 
040126 


040132 
040140 
040144 
049152 
040156 
040164 
049170 
049174 
040202 


045204 


012760 
104436 
032737 
001016 


012746 
012746 
012746 
012746 
104437 
062706 
012737 


005001 
005037 
012704 


032761 
001547 
032761 
001143 


012764 
004737 
112737 


012705 
004737 
032761 
001523 


012764 
004737 
112737 
062705 
004737 
032761 
001503 


012764 
004737 
112737 
062705 
004737 


012764 
004737 
112737 
062705 
012737 
004737 
005037 
032761 
001442 


016403 
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CLRVEC 04 
000004 MOV 04 ,RO 
TRAP CsCveEC 
000002 003516 BIT @NCLKFL ,PCFLAG 
BNE ISTART 
SETVEC 100, @KWHDL , #PRIOO 
000000 MOV @PRIOO, -(SP) 
021100 MOV @KWHOL , - (SP) 
000100 MOV #100, -(SP) 
000003 MOV 93,-(SP) 
TRAP CsSvECc 
000010 ADO #10,SP 
000100 177546 MOV #100, KWCSR 
ISTART: CLR R1 
002074 CLR L$LUN 
002314 MOV ®LUNO,R4 
000001 003350 15: BIT @AVB ,.ORINUS(R1) 
BEQ 20$ 
000004 003350 BIT #€0T ,DRINUS(R1) 
BNE 20$ 
000377 000010 MOV $377 ,SLTUSECR4 ) 
026230 JSR PC,.PRTCLR 
000004 010571 MOVB #4,CROLIM 
040344 MOV @INITIT,RS 
021406 JSR PC ,.CMMDSQ 
000001 003350 BIT %AVB ,DRINUS(R1 ) 
BEQ 20$ 
000377 000010 MOV #377 ,SLTUSECR4) 
026230 JSR PC,.PRTCLR 
000004 010571 MOVB #4,CROLIM 
000006 ADD @TSTSTP,RS 
021406 JSR PC .CMMDSQ 
000001 003350 BIT @AVB ,ORINUS(R1) 
BEQ 20$ 
000377 000010 5$: MOV #377 ,SLTUSECR4 ) 
026230 JSR PC,PRTCLR 
000004 010571 MOVB #4,CROLIM 
000006 ADD @TSTSTP,RS 
021406 JSR PC,.CMMDSQ 
000377 000010 10s: MOV #377 ,SLTUSE(R4) 
026230 JSR PC,PRTCLR 
000004 010571 MOVB #4,CROLIM 
000006 ADD eTSTSTP,RS 
000040 003440 MOV #AVLB, TSTMSK 
021406 JSR PC ,.CMMDSQ 
003440 CLR TSTMSK 
000001 003350 BIT #AVB ,ORINUS(R1) 
BEQ 20$ 
000022 15$: MOV ROLSAV(R4),R3 





SEQ 131 
sRETURN VECTOR TO TRAP CATCHER 


;WAS A CLOCK PRESENT ? 
;NO CLOCK, START REGULAR INIT 
;SET UP THE CLOCK VECTOR 


sENABLE THE CLOCK INTERUPTS 


sSET R1 TO FIST UNIT 
sSET L$LUN TO FIRST UNIT 
sSET R4 TO THE FIRST LUN BLOCK 


sSEE IF DRIVE IS PRESENT AND AVAILABLE 
sGET THE NEXT DRIVE IF IT ISN'T 

sCHECK IF THE DRIVE IS AT EOT 

sGET NEXT DRIVE IF IT IS 


sSET ALL RESPONSE SLOTS TO THE PORT 
:GO DO IT 
sCREDITS START AT 4 FOR NEW LUN 


sPUT INIT TEST TABLE ADDRESS IN RS 

3GO DO INIT ON THIS DRIVE 

sSEE IF DRIVE IS PRESENT AND AVAILABLE 
sGET THE NEXT ORIVE IF IT ISN'T 


SET ALL RESPONSE SLOTS TO THE PORT 
:GO DO IT 

sCREDITS START AT 4 FOR NEW LUN 

sPOINT RS TO THE SCC COMMAND 

sGO DO SCC ON THIS DRIVE 

sSEE IF DRIVE IS PRESENT AND AVAILABLE 
sGET THE NEXT DRIVE IF IT ISN'T 


sSET ALL RESPONSE SLOTS TO THE PORT 
:GO DO IT 


sCREDITS START AT 4 FOR NEW LUN 
sPOINT RS TO THE ONL COMMAND 
:GO DO ONLINE ON THIS DRIVE 


sSET ALL RESPONSE SLOTS TO THE PORT 
:GO DO IT 


sCREDITS START AT 4 FOR NEW LUN 

sPOINT RS TO THE GUS COMMAND 

sALLOW UNIT AVAILABLE ERRORS 

GO DO GUS ON THIS DRIVE 

sALLOW NO ERRORS 

sSEE IF DRIVE IS PRESENT AND AVAILABLE 
sGET THE NEXT DRIVE IF IT ISN'T 


sLET R3 = OLD RESPONSE BUFFER POINTER 








MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


5185 
5186 


5187 


Waa iain alii 


040210 
040214 
040214 
040216 
040222 
040224 
040230 
040734 
040240 
040244 
040246 
040250 
040254 
040254 
040256 
040262 
040264 
040270 
040274 
040300 
040302 
040304 


040310 
040314 
040316 
040322 
040326 
040332 
040332 
040334 


040340 
040340 
040342 


162703 


022701 
001411 
062701 
062704 
005237 


104422 
000137 


104432 
000032 


170 
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000104 


000051 
000050 
002074 


020532 
000004 


000012 


000053 
000052 
020662 
000003 
000010 
000006 
006002 


000172 
002074 


037762 


208: 


EXTINT: 


sINIT TEST TABLE 
N 23 


INITIT 


L10010: 





-EVEN 
ENDINIT 


#ORBSTP,R3 sADJUST R3 BACK TO THE LAST RESPONCE 


Se enn ea nena 
P.CHVR(R3),(SP) - 
SP ) 


P.CSVRCR3),(SP) 


#12,SP 
1) pecan cpicbtntcas th ticcidhscrtnamscegeins 


-(SP) 
P.UHVRC(R3),CSP) 
-(SP) 
P.USVR(R3), (SP) 


#3,-(SP) 
»RO 
CSPNTF 
#10,SP 
#6. ,R1 sHAVE WE DONE THEM ALL ? 
EXTINT s;GET OUT 
@UNTSTP,R1 sGET NEXT UNIT 
@LUNSTP,R4 sSET UP THE NEXT LUN BLOCK 
L$LUN sGET NEXT UNIT 
C$BRK 
1s 3GO DO THE NEXT ONE 
INIT 
CSEXIT 
L10010-. 
-BYTE INT sINITIALIZATION TABLE 
-BYTE NULPAT 
-WORD 0 
-WORD 1 
-BYTE scCC ;SET CONTROLLER CHARACTERISTICS TABLE 
-BYTE NULPAT 
-WORD 0 
«WORD 1 
-BYTE ONL sONLINE TABLE 
-BYTE NULPAT 
-WORD 0 
-WORD 1 
-BYTE GUS ;GET UNIT STATUS TABLE 
-BYTE NULPAT 
-WORD 0 
-WORD 1 






SEQ 132 
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INITIALIZE SECTION 


040374 104411 TRAP CsINIT 
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INITIALIZE SECTION 
5220 040376 BGNAUTO 
040376 LSAUTO:: 
5221 040376 ENDAUTO 
040376 L10011: 
040376 104461 TRAP CsAUTO 





MISCELLANEOUS SECTIONS 
CLEANUP CODING SECTION 


5223 
S224 
5225 
5226 
5227 
5228 


5229 
5236 
5237 
5238 
5239 


5240 


$241 
5242 
5243 
5244 


5245 
5257 
5258 
5259 
5260 


040400 
040400 


040400 
040406 
040410 
040414 
040414 
040420 
040422 
040422 
040424 
040432 
040434 
040442 
040442 
040444 


040446 
040446 
040446 


032737 
001005 
005037 


012700 
104436 


104424 
032737 
001003 
042737 


104432 
000002 


104412 
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000002 
177546 
000100 


000400 
000100 


003516 


003516 
003516 


-SBTTL CLEANUP CODING SECTION 


; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN 
LSCLEAN:: 


5$: DORPT 
B 
EXTCLN: 5 3 


-EVEN 
ENDCLN 
TRAP 


L1001e: 


@NCLKFL,PCFLAX 
5$ 


KWCSR 
#100 
#100 ,RO 
CsCVvEC 


C$DORPT 
#DROPIT,PCFLAG 
EXTCLN 
#NOMDTB , PCFLAG 
CLN 

CSEXIT 
L10012-. 


CSCLEAN 


sWAS A CLOCK PRESENT ? 
sNO CLOCK, DO REPORT 


SEQ 135 
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DROP UNIT SECTION 


040450 010146 
5271 040452 010001 
5272 040454 006101 
5273 040456 005264 
5274 040462 052737 


040470 010046 
040472 104424 


040474 012600 
5278 040476 042737 
5279 040504 105737 
5280 040510 001415 


040512 010246 

040514 010346 
5282 040516 012702 
5283 040522 012703 
5284 040526 060402 
5285 040530 060403 
5286 040532 005022 
5287 040534 020203 
5288 040536 001375 


040540 012603 

040542 012602 
5290 040544 042761 
5291 040552 032761 
5292 040560 001404 
5293 040562 042761 
5294 040570 000402 
5295 040572 005337 
5296 040576 052761 
5297 040604 005264 
5298 040610 022764 
5299 040616 001004 
5300 040620 052761 


040626 104451 
5302 040630 005037 


040634 012601 


040636 012727 
040642 000000 
040644 013727 
040650 000000 


000104 
000400 


000400 
002230 


000040 
000130 


000001 
000004 


000004 
003524 
000010 
000032 
000012 


000020 


003406 


000024 
002116 


003516 


003516 


003350 
003350 


003350 


003350 
000032 
003350 


-SBTTL DROP UNIT SECTION 


3+ 

; THE DROP-UNIT SECTION CONTAINS 
; TO NO LONGER BE TESTED. 

alia 


DROPUN:: 
PUSH <Ri> 
MOV R1,-C(SP) 
MOV RO.R1° 
ROL Ri 
INC DROPPD(R4) 
’ BIS #DROPIT,PCFLAG 
PUSH <RO> 
MOV RO,-(SP) 
DORPT 
TRAP CS$ORPT 
PoP <RO> 
MOV (SP)+,RO 
BIC #DROPIT,PCFLAG 
TSTB NOCLR 
BEQ 3$ 
PUSH <R2,R3> 
MOV R2,-C(SP) 
MOV R3,-CSP) 
MOV #SiREAD,R2 
MOV #TBLTOP,R3 
ADD R4,R2 
ADD R4,R3 
2s: CLR (R2)+ 
CMP R2,R3 
BNE 2s 
POP <R3,R2> 
MOV CSP)+,R3 
MOV (SP)+,R2 
3$: BIC #AVB, DRINUS(R1) 
BIT #E0T ,ORINUSC(R1) 
BEQ 5$ 
BIC #E0T ,ORINUSC(R1) 
BR 10$ 
S$: DEC 


UDROP 
10$: BIS #DROP ,DRINUS(R1) 
INC UNDROP(R4) 
CMP #10. ,UNDROPCR4 ) 


BNE 15$ 
BIS #F AIL,DRINUSC(R1) 
DODU RO 


TRAP C$DODU 
15$: CLR RESPON 


POP <Ri> 

MOV (SP)+,R1 
DELAY 20. 

MOV #20. ,CPC)+ 
-WORD O 

MOV LSDLY,(PC)+ 
WORD 0O 























THE CODING THAT CAUSES A DEVICE 


sSAVE R1 

; PUSH Ri ON STACK 
sPOINT R1 TO THE DRINUS TABLE 
sMULTIPLY BY 2 
sINC DROPPED FLAG FOR THIS UNIT 
s;SET THE UNIT DROP FLAG 


sSAVE RO 
+3PUSH RO ON STACK 
GO PRINT UNIT STATS 


sRESTORE RO 
3sPOP STACK INTO RO 
sCLEAR THE DROP FLAG 
;D0 WE WANT TO CLEAR STATS ON ERROR ? 
;NO, DON'T CLEAR THE STATS 


3sPUSH R2 ON STACK 

3:PUSH R3 ON STACK 
sSTARTING ADDRESS OF STATS IN R2 
sEND ADDRESS OF STATS IN R3 
sADD THE LUN BLOCK ADDRESS TO R2 
;ADD THE LUN BLOCK ADDRESS TO R3 
;CLEAR THE LOCATION 
sARE WE AT THE END OF THE STATS 
s3NO, KEEP CLEARING 


+;POP STACK INTO R3 
3:POP STACK INTO R2 
;CLEAR THE AVB BIT IN DRIVE IN USE TABLE 
;IS THE DRIVE AT EOT ? 
;BRANCH IF NOT 
;CLEAR THE EOT BIT IN DRIVE IN USE TABLE 
;GET OUT 
;SUBTRACT 1 TO DROPPED FLAG 
;SET DRIVE IN USE TABLE TO DROPPED 
;ADD 1 TO THE UNIT DROP COUNT 
;D0 WE HAVE 10. ERRORS ? 
sNO, GET OUT 
:SET THE DRIVE TO FAIL 


sCLEAR THE RESPONSE STATUS 
sRESTORE R1 

3sPOP STACK INTO R1 
sDELAY FOR AWHILE | 


MISCELLANEOUS SECTIONS 
DROP UNIT SECTION 


005367 
001375 
005367 
001367 
010174 
012764 
004737 
000207 


000167 
000000 


104453 
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177772 
177756 
000000 


000377 
026230 





DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
MOV R1,9TKIPCR4) sFLUSH THE DRIVE 
000010 MOV #377, SLTUSECR4) ;SET ALL RESPONCE SLOTS TO PORT 
JSR PC,PRTCLR :GO CLEAR THE PORT 
RTS PC sRETURN 
BGNDU 
L$DU:: 
EXIT DU 
«WORD J$JMP 
-WORD L10013-2-. 
EVEN 
ENDDU 
L10013: 
TRAP C$DU 
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ADD UNIT SECTION 





5330 .SBTTL ADD UNIT SECTION 
5331 
5332 3++ 
5333 ; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
5334 ; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
5335 : TO THE TEST CYCLE. 
5336 s-- 
5337 
5338 040714 BGNAU 
040714 L$AU:: 
5339 
5345 
5346 040714 EXIT AU 
040714 000167 -WORD J$JMP 
040716 000000 -WORD L10014-2-. 
5347 
5359 
5360 EVEN 
5361 
5362 040720 , ENDAU 
040720 L10014: 
040720 104452 TRAP C$AU 
5363 
5364 040722 ENDMOD 
5365 
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ADD UNIT SECTION 


5368 
tae . TITLE HARDWARE TESTS 
380 
sate -SBTTL TEST 1: Basic Function Test 
1 
5418 040722 BGNMOD 
5419 
5420 3++ 
5421 sThis test will execute a subset of the legal commands on the unit 
5422 junder test. It serves as a quick verify test to ascertain that the 
5423 unit can move tape and write/read predictably, without error. The 
pase ssubset of legal commands will be issued in a coherent manner. 
oe 
5426 
5433 
5439 
5440 040722 BGNTST 
040722 Tis: 
5441 040722 105737 002234 TSTB T30NLY ;CHECK THE TEST 3 ONLY FLAG 
5442 040726 001414 BEQ START1L sBRANCH IF IT IS CLEAR 
5443 040730 PRINTF #BYPASS,L$TEST ;PRINT THE TEST BYPASSED MESSAGE 
040730 013746 002114 MOV L$TEST,-C(SP) 
040734 012746 021001 MOV #BYPASS, -(SP) 
040740 012746 000002 MOV #2,-CSP> 
040744 010600 MOV SP ,RO 
040746 104417 TRAP CS$PNTF 
040750 062706 000006 ADD #6 ,SP 
ee 040754 000137 042632 JMP T1EXIT ;JUMP IF IT IS NOT CLEAR 
44 
5446 040760 005737 003524 START1: TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5447 040764 001014 BNE 5$ sNO, CONTINUE 
5448 040766 PRINTF #BYPASS,L$TEST sPRINT THE TEST BYPASSED MESSAGE 
040766 013746 002114 MOV L$TEST,-CSP) 
040772 012746 021001 MOV #BYPASS, -CSP) 
040776 012746 000002 MOV #2,-(SP) 
041002 010600 MOV SP ,RO 
041004 104417 TRAP C$PNTF 
041006 062706 000006 ADD #6 ,SP 
= 041012 000137 042632 JMP TIEXIT ;GET OUT IF NONE LEFT TO TEST 
4 
5451 041016 105737 002212 S$: TSTB CLOCK ;IS THE CLOCK ENABLED 
5452 041022 001421 BEQ G01 3NO, THEN CAN'T PRINT TIME 
5453 041024 PRINTF #TIME,<B,HOURS>,<B, MINUTE>, <B, SECOND>, 
041024 005046 CLR -(SP) 
041026 153716 002215 BISB SECOND, (SP) 
041032 005046 CLR -(SP) 
041034 153716 002214 BISB MINUTE , (SP) 
041040 005046 CLR -(SP) 
041042 153716 002213 BISB HOURS, (SP) 
041046 012746 020044 MOV #TIME, -(SP) 
041052 012746 000004 MOV #4,-(SP) 
041056 010600 MOV SP ,RO 
041060 104417 TRAP CSPNTF 
— 041062 062706 000012 ADD #12,SP . 
5455 041066 004737 033464 G01: JSR PC ,CLREOT sMAKE SURE EOT STATUS IS CLEAR 
5456 041072 012737 000100 003440 MOV #ONLB, TSTMSK ;ALLOW ALREADY ONLINE STATUS 





Bahr AR se cbs eels 


5457 

5458 041100 
5459 041104 
5460 041110 
5461 041114 
5462 041116 


5464 041122 
5465 041126 
5466 041132 
5467 041136 
5468 041142 
5469 041144 


5471 041150 
5472 041154 
5473 041160 
5474 041164 
5475 041166 


5477 041172 
5478 041176 
5479 041202 
5480 041206 
5481 041210 


5483 041214 
5484 041222 
5485 041226 
5486 041232 
5487 041240 
5488 041244 
5489 041246 


5491 041252 
5492 041256 


012705 
004737 
005737 
001002 
000137 


005037 
012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
605737 
001002 
000137 


052737 
012705 
004737 
042737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
004737 
005737 





042636 
021240 
003524 


042632 
003440 
042644 
021240 
003524 
042632 
042652 
021240 
003524 
042632 
042674 
021240 
003524 
042632 


000001 


003440 


003440 


5$: 


10$: 


15$: 


208: 


25$: 


30$: 


35%: 


40$: 


MOV 
JSR 
TST 
BNE 
JMP 


CLR 
MOV 
JSR 
TST 
BNE 
JMP 


MOV 
JSR 
TST 
BNE 
JMP 
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#T1ONL RS 
PC ,SCHED 


TLEXIT 


TSTMSK 
#T1REW,RS 
PC ,SCHED 


T1EXIT 
#T1ILEOT,RS 


T1EXIT 


#T1iSKR,RS 
PC ,SCHED 


#LEDB, TSTMSK 
#T1SKD,RS 

PC ,SCHED 
#LEDB, TSTMSK 
UDROP 

25$ 

TLEXIT 


#T1REW,RS 
PC ,SCHED 
UDROP 

30$ 
TLEXIT 


#T1iWR1,RS 


35$ 
TLEXIT 


#TiWTM,RS 
PC ,SCHED 


#T1IWR2 RS 
PC,SOSTUP 
PC ,SCHED 

UDROP 


sSET UP TO DO AN ONLINE 

;GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sALLOW NO ERRORS 

sSET UP TO DO A REWIND 

GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
3NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO DO 2 TAPE MARK COMMANDS 


GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
3NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


SEQ 140 


sSET UP TO SKIP REVERSE 2 TAPE MARKS 


GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


SET UP TO ALLOW LEOT DETECTED 
SET UP TO DO A SPACE TO LEOT 
sGO ISSUE THE COMMAND 
sDISALLOW LEOT DETECTED 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO DO A REWIND 

:GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sWRITE 99, 512 BYTE RECORDS 
sRESET THE RANDOM SEEDS 

;GO ISSVE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO WRITE A TAPE MARK 
3GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sWRITE 84, 525 BYTE RECORDS 
sRESET THE RANDOM SEEDS 

3GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 


Ree ae aan 
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5514 041364 001002 BNE 45$ sNO, CONTINUE 

Po. 041366 000137 042632 JMP TLIEXIT sGET OUT IF NONE LEFT TO TEST 

5517 041372 012705 042660 45$: MOV @TiWTM,RS sSET UP TO WRITE A TAPE MARK 

5518 041376 004737 021240 JSR PC ,SCHED sGO ISSUE THE COMMAND 

5519 041402 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5520 041406 001002 BNE 50$ sNO, CONTINUE 

esas 041410 000137 042632 JMP TLEXIT sGET C''T IF NONE LEFT TO TEST 

5523 041414 012705 043026 50$: MOV #T1WR3,R5 sWRITE 69, 1038 BYTE RECORDS 

5524 041420 004737 033564 JSR PC ,SDSTUP sRESET THE RANDOM SEEDS 

5525 041424 004737 021240 JSR PC ,SCHED GO ISSUE THE COMMAND 

5526 041430 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5527 041434 001002 BNE 55$ sNO, CONTINUE 

tm 041436 000137 042632 JMP TIEXIT sGET OUT IF NONE LEFT TO TEST 

5530 041442 012705 042660 55$: MOV @T1WTM,RS sSET UP TO WRITE A TAPE MARK 

5531 041446 004737 021240 JSR PC ,,SCHED :GO ISSUE THE COMMAND 

5532 041452 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5533 041456 001002 BNE 60$ sNO, CONTINUE 

co 041460 000137 042632 JMP TIEXIT sGET OUT IF NONE LEFT TO TEST 

5536 041464 012705 043034 60$: MOV #T1WR4,RS sWRITE 54, 1551 BYTE RECORDS 

5537 041470 004737 033564 JSR PC,SDSTUP sRESET THE RANDOM SEEDS 

5538 041474 004737 021240 JSR PC . SCHED 3GO ISSUE THE COMMAND 

5539 041500 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5540 041504 001002 BNE 65$ sNO, CONTINUE 

Sees 041506 000137 042632 JMP TLZXIT ;sGET OUT IF NONE LEFT TO TEST 

5543 041512 012705 042660 65$: MOV @T1IWTM,RS sSET UP TO WRITE A TAPE MARK 

5544 041516 004737 021240 JSR PC ,SCHED 3GO ISSUE THE COMMAND 

5545 041522 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5546 041526 001002 BNE 70$ sNO, CONTINUE 

oot 041530 000137 042632 JMP TLIEXIT sGET OUT IF NONE LEFT TO TEST 

5549 041534 012705 043042 70$:; MOV #T1WR5 RS sWRITE 39, 2064 BYTE RECORDS 

5550 041540 004737 033564 JSR PC,.SDSTUP sRESET THE RANDOM SEEDS 

5551 041544 004737 021240 JSR PC ,SCHED 3GO ISSUE THE COMMAND 

5552 041550 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5553 041554 001002 BNE 75$ sNO, CONTINUE 

coos 041556 000137 042632 JMP TLEXIT sGET OUT IF NONE LEFT TO TEST 
55 

5556 041562 012705 042660 75$: MOV @T1WTM,RS s;SET UP TO WRITE A TAPE MARK 

5557 041566 004737 021240 JSR PC ,SCHED sGO ISSUE THE COMMAND 

5558 041572 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5559 041576 001002 BNE 80$ sNO, CONTINUE 

oe 041600 000137 042632 JMP T1EXIT sGET OUT IF NONE LEFT TO TEST 
61 

5562 041604 012705 043050 80$: MOV #T1WR6 RS sWRITE 24, 2577 BYTE RECORDS 

5563 041610 004737 033564 JSR PC ,,SOSTUP sRESET THE RANDOM SEEDS 

5564 041614 004737 021240 JSR PC ,SCHED sGO ISSUE THE COMMAND 

5565 041620 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 

5566 041624 001002 BNE 85$ sNO, CONTINUE 

oo 041626 000137 042632 JMP TLEXIT sGET OUT IF NONE LEFT TO TEST 

5569 041632 012705 042652 85$: MOV #TiILEOT,RS sSET UP TO WRITE LOGICAL END OF TAPE 

5570 041636 004737 021240 JSR PC ,SCHED sGO ISSUE THE COMMAND 





— 
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005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
004737 
005737 
001002 
000137 


012705 
004737 
005737 


Test 


003524 
042632 


042644 
021240 
003524 


042632 


043056 
033564 
021240 
003524 


042632 


042666 
021240 
003524 


042632 


042702 
021240 
003524 


042632 


042666 
021240 
003524 


042632 


042710 
021240 
003524 


042632 


042724 
021240 
003524 


042632 


043106 
033564 
021240 
003524 


042632 
042732 


021240 
003524 





95$: 


100$: 


105$: 


110$: 


1153: 


120$: 


125$: 


130$: 


TST 
BNE 
JMP 


MOV 
JSR 
TST 
BNE 
JMP 


MOV 
JSR 
JSR 
TST 
BNE 
JMP 


UDROP 

90% 
TLEXIT 
#TLREW,RS 


TIEXIT 


#T1RD1,R5 
PC ,SOSTUP 
PC , SCHED 
UDROP 
100$ 
TLEXIT 


@T1SKP ,RS 
PC ,SCHED 
UDROP 
105$ 
TLEXIT 


@T1iSPC1,R5 
PC ,SCHED 


TLEXIT 


@T1SKP ,RS 
PC SCHED 
UDROP 
115$ 
TLEXIT 


@TiSPC2,R5 
PC ,SCHED 
UDROP 

1208 
TLEXIT 


#T1SP01,R5 
PC ,SCHED 


TLEXIT 


#T1iRDS,RS 
PC ,SDSTUP 
PC ,SCHED 
UDROP 
130$ 
TLEXIT 


@T1SKR1,R5 
PC ,SCHED 
UDROP 


sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 
sGET OUT IF NONE LEFT TO TEST 


sSET UP TO REWIND 

sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO READ 100 RECORDS 
sRESET THE RANDOM SEEDS 

GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SKIP A TAPE MARK 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN. DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SPACE 84 RECORDS 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SKIP A TAPE MARK 
GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SPACE 69 RECORDS 
;GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SPACE 56 OBJECTS 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
3NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO READ 39 RECORDS 
sRESET THE RANDOM SEEDS 

:GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


SEQ 142 


sSET UP TO SKIP REVERSE 4 TAPE MARKS 


sGO ISSUE THE COMMAND 
sHAVE ALL UNITS BEEN DROPPED ? 
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pone 


5628 042120 
5629 042122 
5630 

5631 042126 
5632 042132 
5633 042136 
5634 042142 
5635 042144 


5637 042150 
5638 042154 
5639 042160 
5640 042164 
5641 042170 
5642 042172 


5644 042176 


001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 
000137 


012705 
004737 
005737 
001002 


042632 


042666 
021240 
003524 


042632 


043064 
033564 
021240 
003524 


042632 


042740 
021240 
003524 


042632 


043100 
033564 
021240 
003524 


042632 
042746 
021240 
003524 
042632 
042754 
021240 
003524 
042632 
042762 
021240 
003524 
042632 
042716 
021240 
003524 
042632 
042666 


021240 
003524 





135$: 


140$: 


145$: 


150$: 


155$: 


1608: 


165$: 


1708: 


1758: 


BNE 
JMP 


MOV 
JSR 


135% 
T1EXIT 


@TiSKP ,RS 


TLEXIT 


@T1iRD2,R5 
PC ,,SOSTUP 
PC , SCHED 
UDROP 
145$ 
TLEXIT 


#T1SP02,R5 
PC ,SCHED 
UDROP 

150$ 
TLEXIT 


#T1RD4,R5 
PC ,SOSTUP 
PC , SCHED 
UDROP 
155% 
TLEXIT 


#T1SP03,R5 
PC ,SCHED 
UDROP 

160$ 
TLEXIT 


@TiSPR1,R5 
PC ,SCHED 
UDROP 

165% 
TLEXIT 


@T1SKP1,R5 
PC ,SCHED 
UDROP 

170$ 
TLEXIT 


@T1SPC3,R5 
PC, SCHED 
UDROP 

1753 
TLIEXIT 


@T1SKP RS 
PC , SCHED 
UDROP 


1808 






SEQ 143 


sNO, CONTINUE 
sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SKIP TAPE MARK FORWARD 
GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO READ 84 RECORDS 
sRESET THE RANDOM SEEDS 

sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SPACE 71 OBJECTS 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO READ 54 RECORDS 
sRESET THE RANDOM SEEDS 

sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SPACE 66 OBJECTS 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
:NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SPACE REVERSE 375 OBJECTS 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 

sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SKIP FORWARD 4 TAPE MARKS 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 

sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SPACE 39 RECORDS 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET UP TO SKIP A TAPE MARK 
sGO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 





Teen nnn sessions 
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seed 042374 000137 042632 JMP TLEXIT sGET OUT IF NONE LEFT TO TEST 
686 
5687 042400 012705 043114 180$: MOV @T1RD6 RS sSET UP TO READ 624 RECORDS 
5688 042404 004737 033564 JSR PC ,SOSTUP sRESET THE RANDOM SEEDS 
5689 042410 004737 021240 JSR PC , SCHED sGO ISSUE THE COMMAND 
5690 042414 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5691 042420 001002 BNE 185$ sNO, CONTINUE 
ot | 042422 000137 042632 JMP TIEXIT sGET OUT IF NONE LEFT TO TEST 
5694 042426 012705 042770 185$: MOV @T1SKP2,R5 sSET UP TC SKIP 2 TAPE MARKS 
5695 042432 004737 021240 JSR PC, SCHED sGO ISSUE THE COMMAND 
5696 042436 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5697 042442 001002 BNE 190$ sNO, CONTINUE 
eae 042444 000137 042632 JMP TIEXIT sGET OUT IF NONE LEFT TO TEST 
5700 042450 012705 042776 190$: MOV @T1SPR2,R5 sSET UP TO SPACE REVERSE 192 OBJECTS 
570i 042454 004737 021240 JSR PC, SCHED sGO ISSUE THE COMMAND 
5702 042460 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5703 042464 001002 BNE 195$ sNO, CONTINUE 
ie 042466 000137 042632 JMP TIEXIT sGET OUT IF NONE LEFT TO TEST 
S706 042472 012705 042666 195s: MOV @T1SKP RS sSET UP TO SKIP A TAPE MARK 
5707 042476 004737 021240 JSR PC ,SCHED sGO ISSUE THE COMMAND 
3708 042502 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5709 042506 001002 BNE 2008 sNO, CONTINUE 
27” 042510 000137 042632 JMP TLEXIT sGET OUT IF NONE LEFT TO TEST 
11 ‘: 
S712 042514 012705 043072 200$: MOV #T1iRD3.RS sSET UP TO READ 69 RECORDS 
5713 042520 004737 033564 JSR PC,SOSTUP sRESET THE RANDOM SEEDS 
5714 042524 004737 021240 JSR PC .SCHED sGO ISSUE THE COMMAND 
5715 042530 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5716 042534 001002 BNE 2058 sNO, CONTINUE 
ah 042536 000137 042632 JMP TLEXIT sGET OUT IF NONE LEFT TO TEST 
71 
5719 042542 012705 042644 205$: MOV #T1IREW,RS sSET UP TO REWIND 
5720 042546 004737 021240 JSR PC ,SCHED sGO ISSUE THE COMMAND 
5721 042552 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
S722 042556 001002 BNE 2108 sNO, CONTINUE 
pres 042560 000137 042632 JMP TLEXIT sGET OUT IF NONE LEFT TO TEST 
es 
5725 042564 052737 000001 003440 210s: BIS #LEOB, TSTMSK sSET UP TO ALLOW LEOT DETECTED 
5726 042572 012705 043004 MOV #T1iSkD,.R5 sSET UP TO SKIP TO LEOT 
5727 042576 004737 021240 JSR PC ,SCHED sGO ISSUE THE COMMAND 
5728 042602 042737 000001 003440 BIC #LEDB, TSTMSK sDISALLOW LEOT DETECTED 
5729 042610 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5730 042614 001002 BNE 2153 sNO, CONTINUE 
das 042616 000137 042632 JMP TIEXIT sGET OUT IF NONE LEFT TO TEST 
732 : 
5733 042622 012705 042644 215$: MOV @TIREW,RS sSET UP TO REWIND 
ibe 042626 004737 021240 JSR PC,.SCHED sGO ISSUE THE COMMAND 
- 
5736 042632 TLEXIT: EXIT TST 
042632 104432 TRAP CsEXIT 
042634 000266 -WORD 1L10015-. 
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5738 

$739 042636 
$740 042637 
5741 042640 
5742 042642 
5743 

5744 042644 
5745 042645 
S746 042646 
5747 042650 
5748 

5739 042652 
$5750 042653 
5751 042654 
S752 032656 
5753 
5754 042660 
S755 042661 
S756 042662 
S757 042664 
5758 
5759 042666 
5760 042667 
5761 042670 
S762 042672 
5763 

764 042674 
5765 042675 
5766 042676 
5767 042700 


5769 042702 
5770 042703 
5771 042704 
$772 042706 


5774 042710 
5775 042711 
5776 042712 
5777 042714 


5779 042716 
5780 042717 
5781 042720 
5782 042722 


5784 042724 
5785 042725 
5786 042726 
5787 042730 


5789 042732 
5790 042733 
5791 042734 
5792 042736 
5793 

5794 042740 


Bio ee ea mena 


140 
000 


TIONL: .BYTE 
. WORD 
. WORD 


TIREW: .BYTE 


TILEOT: .BYTE 
TIWT™M: .BYTE 
TISKP: .BYTE 
TISKR: .BYTE 

-BYTE 
TISPC1: .BYTE 
TisPC2: .BYTE 
TISPC3: .BYTE 


TiSPO1: .BYTE 


TISKR1: .BYTE 
-BYTE 
. WORD 
. WORD 


T1SP02: .BYTE 





SEQ 145 


sONLINE COMMAND 
sNO DATA NEEDED 
NO ITEM COUNT 

3:00 IT ONE TIME 


sREWIND COMMAND 
NO DATA NEEDED 
sNO ITEM COUNT 

:D0 IT ONE TIME 


sWRITE TAPE MARK 
sNO DATA NEEDED 
sNO ITEM COUNT 
300 IT TWICE 


sWRITE TAPE MARK 
sNO DATA NEEDED 
:NO ITEM COUNT 

300 IT ONE TIME 


sSKIP TAPE MARK 
sNO DATA NEEDED 
SKIP 1 TAPE MARK 
D0 IT ONE TIME 


sSKIP TAPE MARK REVERSE 
sNO DATA NEEDED 

sSKIP REVERSE 2 TAPE MARKS 
:D0 IT ONCE 


sSPACE RECORDS 
NO DATA NEEDED 
sSPACE 84 RECORDS 
300 IT ONE TIME 


SPACE RECORDS 
3NO DATA NEEDED 
sSPACE 69 RECORDS 
300 IT ONE TIME 


sSPACE RECORDS 
sNO DATA NEEDED 
:SPACE 39 RECORDS 
D0 IT ONE TIME 


sSPACE OBJECTS 
sNO DATA NEEDED 
sSPACE 56 OBJECTS 
;0C IT ONE TIME 


SKIP TAPE MARK REVERSE 
sNO DATA NEEDED 
34 TAPE MARKS 
;D0 IT ONCE 


sSPACE OBJECTS 





1: 


042741 
042742 
042744 


042746 
042747 
042750 
042752 


042754 
042755 
042756 
042760 


042762 
042763 
0427646 
042766 


042770 
042771 
042772 
042774 


042776 
042777 
043000 
043002 


043004 
043005 
043006 
043010 


043012 
043013 
043014 
043016 


043020 
043021 
043022 
043024 


043026 
043027 
043030 
043032 


043034 
043035 
043036 
043040 


043042 
043043 
043044 





020 
004020 





TiSPO3: .BYTE 
TISPR1: y te 
TISKP1: .BYTE 
TASKP2: .BYTE 
TISPR2: .BYTE 


TiSKD: .BYTE 
-BYTE 


TIWR1: .BYTE 
-BYTE 
- WORD 
- WORD 


TiWR2: .BYTE 
-BYTE 
- WORD 
- WORD 


TIWR3: .BYTE 
-BYTE 
- WORD 
- WORD 


TIWR4: .BYTE 
-BYTE 


TIWRS: .BYTE 
-BYTE 
. WORD 


cr 
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NULPAT 
71. 
1 


SPO 
NULPAT 
66. 

1 

SPR 


NULPAT 
375. 


sNO DATA NEEDED 
sSPACE 71 OBJECTS 
300 IT ONE TIME 


sSPACE OBJECTS 
sNO DATA NEEDED 
sSPACE 66 OBJECTS 
3:00 IT ONE TIME 


sSPACE OBJECTS REVERSE 
sNO DATA NEEDED 

SPACE 375 OBJECTS 

sD0 IT ONE TIME 


sSKIP TAPE MARKS 
s3NO DATA NEEDED 
sSKIP 4 TAPE MARKS 
sD0 IT ONE TIME 


sSKIP TAPE MARKS 
sNO DATA NEEDED 
sSKIP 2 TAPE MARKS 
sD0 IT ONE TIME 


sSPACE OBJECTS REVERSE 
sNO DATA NEEDED 

sSPACE 192 OBJECTS 

3:00 IT ONE TIME 


sSKIP TO LEOT 
3NO DATA NEEDED 
sNO ITEM COUNT 
300 IT ONE TIME 


sWRITE RECORD 

sDATA PATERN 1 CALL 1'S) 
sBYTE COUNT OF 512. 

300 IT 99 TIMES 


sWRITE RECORD 

sDATA PATERN 2 CALL 0‘S) 
sBYTE COUNT OF 525 

;D0 IT 84 TIMES 


sWRITE RECORD 


sDATA PATERN 3 (WORST MFM) 


sBYTE COUNT OF 1038 
:D0 IT 69 TIMES 


sWRITE RECORD 


sDATA PATERN 4 (ALTERNATE 1‘S AND 0°S) 


sBYTE COUNT OF 1551 
300 IT 54 TIMES 


sWRITE RECORD 


sDATA PATERN 3 (WORST MFM) 


sBYTE COUNT OF 2064 








-_ - 
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5852 
5853 
5854 
5855 
5856 
5857 
5858 
5859 
5860 


043046 


043050 
043051 
043052 
043054 


043056 
043057 
043060 
043062 


043064 
043065 
0 3066 
© 3070 


043072 
043073 
043074 
043076 


043100 
043101 
043102 
043104 


043106 
043107 
043110 
043112 


043114 
043115 
043116 
043120 


043122 
043122 
043122 





000047 
020 


004020 
000047 


010 
001 
005021 
000030 


104401 


TIWR6: .BYTE 


TIRD1i: .BYTE 


TiRD2: .BYTE 


TiIRD3: .BYTE 


TiRD4: .BYTE 


TIRDS: .BYTE 


TIRD6: .BYTE 


ENDTST 
L10015: 





39. 


CSETST 


SEQ 147 


300 IT 39 TIMES 


sWRITE RECORD 

sDATA PATERN 1 CALL 1'S) 
sBYTE COUNT OF 2577 

;00 IT 24 TIMES 


sREAD RECORD 

sDATA PATERN 1 CALL 1'S) 
sBYTE COUNT OF 512. 

300 IT 99 TIMES 


sREAD RECORD 

sDATA PATERN 2 CALL 0'S) 
sBYTE COUNT OF 525 

:D0 IT 84 TIMES 


sREAD RECORD 

sDATA PATERN 3 (WORST MFM) 
sBYTE COUNT OF 1038 

D0 IT 69 TIMES 


sREAD RECORD 

sDATA PATERN 4 (ALTERNATE 1‘S AND 0’S) 
sBYTE COUNT OF 1551 

300 IT 54 TIMES 


sREAD RECORD 

DATA PATERN 3 (WORST MFM) 
sBYTE COUNT OF 2064 

;3D0 IT 39 TIMES 


sREAD RECORD 
sDATA PATERN 1 CALL 1'S) 
sBYTE COUNT OF 2577 
300 IT 24 TIMES 
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404 -SBTTL TEST 2: Quick Verify Write/Read Test 
5900 tte 
dee This test rewinds the tape, then executes the following sequence: 
3 : 
5903 3 1. Write record set, 
5904 3 2. Reposition over just written record set, 
tay : 3. Then read the current record set, 
3 
5907 ifor 5 iterations or until fatal error is encountered. This test 
5908 spermits retries, fixed record length (2048 bytes), fixed number of 
5909 srecords/set (400), and predetermined data patterns. This test will 
+e s;execute in a round-robin manner. 
1 eel 
5912 043124 BGNTST 
043124 T2:: 
5913 043124 105737 002234 TSTB T3ONLY sCHECK THE TEST 3 ONLY FLAG 
5914 043130 001414 BEQ START2 ;BRANCH IF IT IS CLEAR 
5915 043132 PRINTF #BYPASS,L$TEST sPRINT THE TEST BYPASSED MESSAGE 
043132 013746 002114 MOV L$TEST,-(SP) 
043136 012746 021001 MOV #BYPASS, -(SP) 
043142 012746 000002 MOV #2,-(CSP) 
043146 010600 MOV SP ,RO 
043150 104417 TRAP CS$PNTF 
043152 062706 000006 ADD #6 ,SP 
cs 043156 000137 043542 JMP T2EXIT :GET OUT 
1 
5918 043162 005737 003524 START2: TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
5919 043166 001014 BNE 5$ 3GO START THE TEST 
5920 043170 PRINTF #BYPASS,L$TEST ;PRINT THE TEST BYPASSED MESSAGE 
043170 013746 002114 MOV L$TEST,-CSP) 
043174 012746 021001 MOV #BYPASS,-(SP) 
043200 012746 000002 MOV #2,-(SP) 
043204 010600 MOV SP ,RO 
043206 104417 TRAP CS$PNTF 
043210 062706 000006 ADD #6 ,SP 
ores 043214 000137 043542 JMP T2EXIT ;GET OUT IF NONE LEFT TO TEST 
92 
5923 043220 105737 002212 5$: TSTB CLOCK ;IS THE CLOCK ENABLED 
5924 043224 001421 BEQ G02 3NO, THEN CAN'T PRINT TIME 
5925 043226 PRINTF #TIME,<B,HOURS>,<B,MINUTE>,<B,SECOND>, 
043226 005046 CLR -(SP) 
043230 153716 002215 BISB SECOND , (SP) 
043234 005046 CLR -(SP) 
043236 153716 002214 BISB MINUTE ,( SP) 
043242 005046 CLR -(SP) 
043244 153716 002213 BISB HOURS, (SP) 
043250 012746 020044 MOV #TIME, -CSP) 
043254 012746 000004 MOV #4,-(SP) 
043260 010600 MOV SP ,RO 
043262 104417 TRAP C$PNTF 
nant 043264 062706 000012 ADD #12, SP 
2 
5927 043270 004737 033464 G02: JSR PC,CLREOT sMAKE SURE EOT STATUS IS CLEAR 
5928 043274 005037 003520 CLR OBJECT ;CLEAR THE OBJECT COUNTER 
pees 043300 005037 003440 CLR TSTMSK ;ALLOW NO ERRORS 
0 





rr 











SEQ 148 
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5931 
5932 


043304 
043310 
043314 
043320 


043322 
043326 
043332 


043550 


043552 
043553 


012705 
004737 
005737 
001510 


004737 
012705 
004737 
005737 
001477 


012705 
004737 
005737 
001470 


012705 
004737 
005737 
001461 


005737 
001412 
012705 
013765 
004737 
005737 
001444 


004737 
012705 
004737 
005737 
001433 
066537 


052737 
012705 
004737 
042737 
005737 
001413 
066537 


022737 
001274 
012705 
004737 
004737 


104432 
000046 


160 
000 


043552 
021240 
003524 


033564 
043560 
021240 
003524 


043566 
021240 
003524 


043552 
021240 
003524 


003520 


043610 
003520 
021240 
003524 


033564 
043574 
021240 
003524 


000004 


000001 
043602 
021240 
000001 
003524 


000004 
004716 
043552 


021240 
033640 





000002 


003520 
003440 


003440 


003520 
003520 


5$: 


10$: 


T2EXIT: 


T2REW: 


#T2REW,RS 
PC, SCHED 
UDROP 
T2EXIT 


PC ,SDSTUP 
#T2WRT RS 
PC ,SCHED 
UDROP 
T2EXxIT 


#T2LEOT,RS 
PC ,SCHED 
UDROP 
T2EXIT 


#T2REW,RS 
PC ,SCHED 
UDROP 
T2EXIT 


OBJECT 

10$ 

#T2SP0,R5 

OBJECTS, ITMCNTCRS) 
PC ,SCHED 

UDROP 

T2EXIT 


PC ,SOSTUP 
#T2RD,RS 
PC ,SCHED 


IT 
ITRCNTCRS) ,OBJECTS 


#LEDB, TSTMSK 
#T2SKD,RS 

PC ,SCHED 
#LEDB, TSTMSK 
UDROP 


2 
ITRCNTCRS),OBJECTS 
See AO 


#T2REW,RS 
PC ,SCHED 
PC ,SDSAVE 
TST 
CSEXIT 
L10016-. 


REW 
NULPAT 





sSET UP TO DO A REWIND 

sGO ISSSUVE A REWIND TO ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


sRESET THE RANDOM SEEDS 

sSET UP TO DO A WRITE ITERATION 
sGO ISSSVE WRITES TO ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


SET UP TO DO A WRITE LEOT 

sGO ISSSUVE WRITES TO ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


sSET UP TO DO A REWIND 

sGO ISSSVE A REWIND TO ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


sIS THIS THE FIRST TIME THROUGH ? 
sYES, DON’T DO THE SPACE FORWARD 

sSET UP TO SPACE OBJECTS 

sSET UP # OF OBJECTS TO SPACE FORWARD 
sGO ISSSUVE A REWIND TO ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 

sGET OUT IF NONE LEFT TO TEST 


sRESET THE RANDOM SEEDS 

SET UP TO DO A READITERATION 
sGO ISSSUE READS TO ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sADD THE # OF RECORDS TO OBJECTS 


sSET UP TO ALLOW LEOT DETECTED 
sSET UP TO DO A SKIP TO LEOT 

3GO ISSSUE READS TO ALL DRIVES 
DISALLOW LEOT DETECTED 

sHAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
sADD THE # OF RECORDS TO OBJECTS 


sHAVE WE DONE 2 TRACKS ? 

sNO, KEEP GOING 

sSET UP TO DO A REWIND 

3GO ISSSVE A REWIND TO ALL DRIVES 
sRESET THE RANDOM SEEDS 


sREWIND 






SEQ 149 





TEST 


Quick Verify Write/Read Test 


043554 
043556 


043560 
043561 
043562 
043564 


043566 
043567 
043570 
043572 


043574 
043575 
043576 
043600 


043602 
043603 
043604 
043606 


043610 
043611 
043612 
043614 


043616 
043616 
043616 


000000 
000001 


000001 
000001 


104401 





-WORD 
. WORD 


T2WRT: .BYTE 
-BYTE 
- WORD 
- WORD 


T2LEOT: .BYTE 
B 

T2RD: -BYTE 

T2SKD: .BYTE 


T2SP0: y 
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CSETST 





SEQ 150 


sWRITE RECORDS 


sWRITE TAPE MARK 
sNO DATA NEEDED 
sNO ITEM COUNT 
300 IT TWICE 


sREAD RECORDS 


;SKIP TAPE MARK TO LEOT 
sNO DATA NEEDED 

sSKIP SO TAPE MARKS 

300 IT ONE TIME 


sSPACE OBJECTS 


- 
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6018 
6019 
6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
6034 
6035 
6036 
6037 


6038 
6039 
6040 
6041 


6042 
6043 
6044 
6045 
6046 


005737 
001014 


013746 
012746 
012746 
010600 
104417 
062706 
000137 


105737 
001421 


005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104417 
062706 


004737 
004737 
004737 


005037 
005737 
001525 


012705 


003524 


002114 
021001 
000002 


000006 
044226 
002212 


002215 
002214 
002213 
020044 
000004 
000012 
033714 
033564 
033464 
003440 
003524 


044236 


-SBTTL TEST 3: Complex Write/Read Test 


p++ 


iThis test rewinds the tape, and executes the following sequence: 


i of records (N), and record size will be randomly selected. 
ssequence will permit hardware retries, if not user disabled. 
;test will run until EOT, LEOT or fatal error is detected. 


OANDULS Whe 


Write 1000 records, 


Write a file mark, 
Repeat 1 and 2 until EOT is reached, 


Write 2 file marks (LEOT), 


Rewind, 
Read 1000 records, 
Read 1 record (should see unexpected tape mark ) 


Repeat 6 and 7 until LEOT. 


This 
This 
All data 


spatterns including random data will be used in this test. 


T3:: 
STARTS: 


5$: 


GO3: 


BGNTST 


UDROP 


5$ 
#BYPASS,L$TEST 


L$TEST,-CSP) 


#BYPASS, -(SP) 


#2, -(SP) 
SP ,RO 
C$PNTF 
#6 , SP 
T3EXIT 


CLOCK 
GO3 


sHAVE ALL UNITS BEEN DROPPED ? 
sGO START THE TEST 
sPRINT THE TEST BYPASSED MESSAGE 


sGET OUT IF NONE LEFT TO TEST 


sIS THE CLOCK ENABLED 
3NO, THEN CAN'T PRINT TIME 


#TIME,<B,HOURS>,<B,MINUTE>,<B,SECOND>, 


-(SP) 
SECOND ,( SP) 
-C(SP) 
MINUTE , (SP) 
-(SP) 
HOURS, (SP) 
#TIME, -CSP) 
#4,-(SP) 

SP ,RO 


C$PNTF 
#12,SP 


PC,PATCLR 
PC ,,SDSTUP 
PC ,CLREOT 


TSTMSK 
UDROP 
T3EXIT 


#T3REW,RS 


sMAKE SURE WE START WITH PATTERN 1 
sRESET THE RANDOM SEEDS 
s;CLEAR ALL EOT INDICATIONS 


ALLOW NO ERRORS 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


SET UP TO DO REWIND 


Died cn cw etl BRE cen ie lear 


SEQ 151 





HARDWARE TESTS 


TEST 3: Complex 


6110 
6111 


Wiscasset nae Lt I oe ie tha 


043760 
043764 
043770 


043772 
043776 
044002 
044006 
044010 
044016 


044020 
044024 
044030 
044034 
044036 
044044 


044046 
044054 
044060 
044064 
044070 
044074 
044076 
044102 


044104 
044110 
044114 
044120 
044124 
044126 
044132 


044136 
044142 
044146 
044152 
044154 
044162 


044164 
044170 
044174 
044200 
044202 
044210 


044212 
044216 
044222 


044226 
044232 
044232 
044234 
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Write/Read Test 


004737 
005737 
001516 


012705 
004737 
005737 
001507 
023737 
001413 


012705 
004737 
005737 
001474 
023737 
001352 


012737 
004737 
012705 
004737 
005737 
001454 
005337 
001364 


004737 
012705 
004737 
005737 
001440 
004737 
004737 


012705 
004737 
005737 
001425 
023737 
001413 


012705 
004737 
005737 
001412 
023737 
001352 


004737 
012705 
004737 
004737 


104432 
000040 


021240 
003524 


044244 
021240 
003524 


003526 


044252 
021240 
003524 


003526 


000004 
033464 
044252 
021240 
003524 


010560 


033464 
044236 
021240 
003524 


033714 
033564 


044260 
021240 
003524 
003526 
044266 
021240 
003524 
003526 
033464 
044236 
021240 


033640 


003524 


003524 


010560 


003524 


003524 


5$: 


10$: 
15$: 


20$: 


EX3REW: 


T3EXIT: 


JSR 
TST 
BEQ 


PC ,SCHED 
UDROP 
T3EXIT 


#T3WRT RS 


VEOT , UDROP 
10$ 


#T3WTM,RS 


#4,LOOPS 
PC ,CLREOT 
#T3WTM,RS 


PC ,CLREOT 
#TS3REW,RS 
PC ,SCHED 
UDROP 
T3EXIT 
PC,PATCLR 
PC ,SOSTUP 


#T3RD,RS 
PC ,SCHED 
UDROP 
T3EXIT 
UEOT , UDROP 
EX3REW 


#T3SPO,.R5 
PC ,SCHED 
UDROP 
T3EXIT 
VEOT , UDROP 
20$ 


PC ,CLREOT 
#T3REW,RS 
PC SCHED 
PC ,SDSAVE 
TST 


CSEXIT 
L10017-. 


:GO ISSUE TO ALL DRIVES 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


s;SET UP A WRITE ITERATION 

;GO DO IT ON ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sARE ALL UNITS AT EOT ? 

sYES, WRITE ONE MORE REC AND LEOT 


sSET UP TO WRITE A TAPE MARK 
sGO DO IT ON ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sARE ALL UNITS AT EOT ? 

s3NO, KEEP WRITING 


sSET UP TO DO 4 TAPE MARKS 

sCLEAR THE EOT INDICATORS 

sSET UP TO WRITE A TAPE MARK 

GO DO IT ON ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 

sGET OUT IF NONE LEFT TO TEST 
sSUBTRACT 1 FROM THE TAPE MARK COUNT 
sKEEP GOING TIL THEY'RE ALL WRITTEN 


;CLEAR THE EOT INDICATORS 

sSET UP TO REWIND ALL DRIVES 
:GO 00 IT 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sSTART AT PATTERN 1 

sRESET THE RANDOM SEEDS 


;SET UP TO READ AN ITERATION SET 
sGO ISSUE TO ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sALL UNITS AT EOT ? 

YES, GO REWIND ALL DRIVES 


sSPACE 1 OBJECT (TAPE MARK) 
:GO DO IT AN ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sALL UNITS AT EOT ? 

NO, KEEP READING 


s;CLEAR THE EOT INDICATORS 
sSET UP TO REWIND ALL DRIVES 
:GO DO IT 


sRESET THE RANDOM SEEDS 






SEQ 152 








C2 rr er et 
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6112 








SEQ 153 
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TEST 


6114 
6115 


044236 
044237 
044240 
044242 


044244 
044245 
044246 
044250 


044252 
044253 
044254 
044256 


044260 
044261 
044262 
044264 


044266 
044267 
044270 
044272 


044274 
044274 
044274 


3: Complex Write/Read Test 


104401 





T3REW: 


T3WRT: 


T3WTM: 


T3RD: 


T3SPO: 


REW 
a 


1 


WR 

ALLPAT 
RNOBYT 
RNDITR 


WT™M 
NULPAT 
0 


1 


RD 

ALLPAT 
RNDBYT 
RNDITR 


SPO 
NULPAT 
1 

1 


CSETST 





sREWIND 


sWRITE RECORDS 


sWRITE TAPE MARK 


sREAD RECORDS 


sSPACE OBJECT (TAPE MARK) 


SEQ 154 
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6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 


6151 
6152 
6153 


6154 
6155 
6156 
6157 
6158 


6159 
6160 
6161 
6162 
6163 


6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 


— 


105737 
001414 


013746 
012746 
012746 
010600 
104417 
062706 
000137 


005737 
001014 


013746 
012746 
012746 
010600 
104417 
062706 
000137 


105737 
001421 


005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104417 
062706 


004737 
004737 
004737 
005037 


012705 
004737 
005737 
001453 


002234 


002114 
021001 
000002 


000006 
044626 
003524 
002114 


021001 
000002 


000006 
044626 
002212 


002215 
002214 


002213 
020044 
006004 


000012 


033714 
033564 
033464 
003440 


044632 
021240 
003524 


-SBTTL TEST 4: Write Interchange Tape 


3*¢ 


sThis test will rewind the tape, then write until EOT or 


a fatel error is 


sencountered This test will keep track of the number of peverds and tape 
smarks written. 
sit, and the unit prevented from executing further write operations. 


T4:: 


START4: 


5$: 


G04: 


BGNTST 


If a fatel error 


T3ONLY 
START4 


#BYPASS,L$TEST 


L$TEST,-(SP) 


BYPASS, -C(SP) 


#2,-CSP) 


T4EXIT 
UDROP 
S$ 


#BYPASS,L$TEST 


L$TEST,-CSP) 


2 


T4EXIT 
CLOCK 


is encountered, a message will report 


sCHECK THE TEST 3 ONLY FLAG 
sBRANCH IF IT IS CLEAR 
sPRINT THE TEST BYPASSED MESSAGE 


sGET OUT 
sHAVE ALL UNITS BEEN DROPPED ? 


sGO START THE TEST 
sPRINT THE TEST BYPASSED MESSAGE 


sGET OUT IF NONE LEFT TO TEST 


sIS THE CLOCK ENABLED 
3NO, THEN CAN'T PRINT TIME 


G04 
pit > 5 »<B,HOURS>,<B, MINUTE>, <B,SECOND>, 


SECOND , (SP) 
-(SP) 

MINUTE , (SP) 
-(SP) 
HOURS, (SP) 
TIME, -(SP) 
4,-(SP) 

SP ,RO 


CS$PNTF 
#12,SP 


PC,PATCLR 
PC ,SOSTUP 
PC ,CLREOT 
TSTMSK 


@T4REW,RS 
PC ,SCHED 
UDROP 
T4EXIT 





; 

;SET UP THE RANDOM SEEDS 
sCLEAR THE EOT FLAG 

sNO ALLOWABLE ERRORS 


sPOINT RS TO THE REWIND TABLE 
GO START THE TEST 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 





SEQ 155 
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6175 044500 012705 044640 S$: MOV @T4WRT RS sPOINT RS TO THE TEST TABLE 
6176 044504 004737 021240 JSR PC ,SCHED sGO START THE TEST 
6177 044510 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
6178 044514 001444 BEQ T4EXIT sGET OUT IF NONE LEFT TO TEST 
6179 044516 023737 003526 003524 CMP VEOT , UDROP sARE THEY ALL AT EOT ? 
erty 044524 001413 BEQ 10$ sBRANCH IF IT IS 
6182 044526 012705 044646 MOV @T4WTM,RS sPOINT RS TO THE TEST TABLE 
6183 044532 004737 021240 JSR PC ,SCHED sGO START THE TEST 
6184 044536 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
6185 044542 001431 BEQ T4EXIT sGET OUT IF NONE LEFT TO TEST 
6186 044544 023737 003526 003524 CMP VEOT , UDROP sARE THEY ALL AT EOT ? 
ert 044552 001352 BNE 5$ sBRANCH IF NOT 
6189 044554 012737 000004 010560 10%: MOV #4,LOOPS sSET UP TO DO 4 TAPE MARKS 
6190 044562 004737 033464 15$: JSR PC ,CLREOT sCLEAR THE EOT INDICATORS 
6191 044566 012705 044252 MOV @TSWTM,RS sSET UP TO WRITE A TAPE MARK 
6192 044572 004737 021240 JSR PC ,SCHED sGO DO IT ON ALL DRIVES 
6193 044576 005737 003524 TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
6194 044602 001411 BEQ T4EXIT sGET OUT IF NONE LEFT TO TEST 
6195 044604 005337 010560 DEC LOOPS sSUBTRACT 1 FROM THE TAPE MARK COUNT 
ths | 044610 001364 BNE 15$ sKEEP GOING TIL THEY'RE ALL WRITTEN 
6198 044612 012705 044632 MOV @T4REW,RS sPOINT RS TO THE TEST TABLE 
6199 044616 004737 033464 JSR «PC, CLREOT ; 
6200 044622 004737 021240 JSR PC SCHED sGO REWIND ALL UNITS 
6201 044626 T4EXIT: EXIT TST 

044626 104432 TRAP CSEXIT 
sass 044630 000024 WORD L10020- 
6203 044632 160 T4REW: .BYTE REW sREWIND 
,6204 044633 000 -BYTE NULPAT 
6205 044634 000000 WORD 
84 044636 000001 WORD 1 
6208 044640 020 T4WRT: .BYTE WR sWRITE RECORDS 
6209 044641 200 -BYTE ALLPAT 
6210 044642 010000 WORD 4096 
343 044644 001750 WORD 1000 

1 

6213 044646 100 _  T4aWTM: .BYTE WIM sWRITE TAPE MARK 
6214 044647 000 -BYTE NULPAT 
6215 044650 000000 - WORD 
6216 044652 000001 -WORD 1 
6217 -EVEN 
6218 044654 ENOTST 

044654 L100. 
- 044654 104401 TRAP CsETST 
6219 





& 





eee 





- 
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TEST 5: Read Unknown Tape 
6221 -SBTTL TEST 5: Read Unknown Tape 
6222 
6223 tee 
6224 sThis test will rewind a tape, then read until EOT, LEOT or fatal error 
6225 sie encountered. This test will keep track of the number of records 
6226 , sand files read. If a fatal error is encountered, a message will 
6227 sreport it, the tape on the unit will be rewound, and the unit 
aoe : sprevented from executing further read operations. 
6 <= 
6230 044656 BGNTST 
044656 . T5:: 
6231 044656 105737 002234 TST8 T3ONLY sCHECK THE TEST 3 ONLY FLAG 
6232 044662 001414 BEQ STARTS sBRANCH IF IT IS CLEAR 
6233 044664 PRINTF #BYPASS,LSTEST sPRINT THE TEST BYPASSED MESSAGE 
044664 013746 002114 MOV LSTEST,-(SP) 
044670 012746 021001 MOV @BYPASS, -( SP) 
044674 012746 000002 MOV $2,-(SP) 
044700 010600 MOV SP ,RO 
044702 104417 TRAP CSPNTF 
044704 062706 000006 ADD 6 ,SP 
a 044710 000137 045154 JMP TSEXIT 3;GET OUT 
62 
6236 044714 005737 003524 STARTS: TST uDROP sHAVE ALL UNITS BEEN DROPPED ? 
6237 044720 001014 BNE 53 ;GO START THE TEST 
6238 044722 PRINTF @BYPASS,LSTEST s;PRINT THE TEST BYPASSED MESSAGE 
044722 013746 002114 MOV LSTEST,-(SP) 
044726 012746 021001 MOV @BYPASS,-(SP) 
044732 012746 000002 MOV #2,-(SP) 
044736 010600 MOV SP ,RO 
044740 104417 TRAP CSPNTF 
044742 062706 000006 ADD #6 ,SP 
acae 044746 000137 045154 JMP TSEXIT ;GET OUT IF NONE LEFT TO TEST 
624 
6241 044752 105737 002212 5$: TSTB CLOCK ;IS THE CLOCK ENABLED 
6242 044756 001421 BEQ GOS 3NO, THEN CAN‘T PRINT TIME 
6243 044760 PRINTF #@TIME,<B,HGURS>,<B,MINUTE>,<B,SECOND>, 
044760 005046 CLR -(SP) 
044762 153716 002215 BISB SECOND ,( SP) 
044766 005046 CLR -(SP) 
044770 153716 002214 BISB MINUTE ,( SP) 
044774 005046 CLR -(SP) 
044776 153716 002213 BISB HOURS, (SP) 
045002 012746 020044 MOV #TIME, -(SP) 
045006 012746 000004 MOV 04,-(SP) 
945012 010600 MOV SP ,RO 
045014 104417 TRAP CSPNTF 
045016 062706 0006012 ADD #12, SP 
6244 
6245 045022 004737 033714 GOS: JSR PC,PATCLR sMAKE SURE WE START WITH PATTERN 1 
6246 045026 004737 033564 JSR PC ,SOSTUP ;SET UP THE RANDOM SEEDS 
6247 045032 004737 033464 JSR PC,CLREOT ;CLEAR THE EOT FLAG : 
6248 
6249 045036 132737 00000: 002236 BITB #B ITO, DMPBUF ;ARE WE DUMPING ALL RECORDS? 
6250 045044 001402 BEQ is 3NO - BRANCH 
reed 045046 012737 000001 045172 MOV #1,TSRD+4 :CHANGE ITER COUNT TO 1 
62 
6253 045054 005037 003440 1$: CLR TSTMSK ;NO ALLOWABLE ERRORS 





eee 
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6254 045060 
6255 045064 
6256 045070 
6257 045074 


6259 045076 
6260 045104 
6261 045110 
6262 045114 
6263 045120 
6264 045122 

265 045130 


6267 045132 
6268 045136 
6269 045142 
6270 045146 
6271 045154 

045154 

045156 


6273 045160 
6274 045161 
6275 045162 
6276 045164 


6278 045166 
6279 045167 
6280 045170 
6281 045172 


6284 045174 
045174 
045174 


012705 
004737 
005737 
001427 


012737 
012705 
004737 
005737 
001415 
023737 
001365 


004737 
012705 
004737 
012737 


104432 
000016 


104401 


045160 
021240 
003524 


000012 003440 
045166 
021240 
003524 


003526 003524 


033464 
045160 
021240 
001751 045172 


S$: 


108: 


TSEXIT: 


TSREW: 


TSRO: 


@TSREW,RS 


TSEXIT 


@TMB!ROTB, TSTMSK 
@TSRD.RS 

PC .SCHED 

UDROP 

TSEXIT 

ph ange 


PC ,CLREOT 
STSREW,RS 

PC ,SCHED 
#1001. ,TSRD+4 
TST 

CSEXIT 
L10021-. 


REW 
NULPAT 


CSETST 











SEQ 158 


sPOINT RS TO THE REWIND TABLE 
sGO START THE TEST 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


sTAPE MARKS AND TRUNC. RECORDS OK 
sPOINT RS TO THE TEST TABLE 

:3GO START THE TEST 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sARE THEY ALL AT EOT ? 

sBRANCH IF THEY ARE NOT 


; 

sPOINT RS TO THE REWIND TABLE 
:GO REWIND ALL UNITS 
sRESTORE ITER COUNT 


REWIND 


sREAD RECORDS 


—— 
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6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 


6304 
6305 
6306 


6307 
6308 
6309 
6310 
6311 


6312 
6313 
6314 
6315 
6316 


6317 
6318 


045176 
045176 
045176 
045202 
045204 
045204 
045210 
045214 
045220 
045222 
045224 
045230 


045234 
045240 
045242 
045242 
045246 
045252 
045256 
045260 
045262 
045266 


045272 
045276 
045300 
045300 
045302 
045306 
045310 
045314 
045316 
045322 
045326 
045332 
045334 
045336 


045342 


105737 
001414 


013746 
012746 
012746 
010600 
104417 
062706 
000137 


005737 
001014 


013746 
012746 
012746 
010600 
104417 
062706 
000137 


105737 
001421 


005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104417 
062706 


004737 


002234 


002114 
021001 
000002 


000006 
045604 
003524 
002114 


021001 
000002 


000006 
045604 
002212 


002215 
002214 
002213 
020044 
000004 
000012 


033714 
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-SBTTL TEST 6: Start/Stop Write/Read Test 


3¢* 


iThis test rewinds the tape, and executes the following sequence: 


OuUPwhre 


Write 1300 records one at a time, 
Write 2 file marks (LEOT), 
Rewind, 

Read 1300 records one at a time, 
Skip to LEOT. 
Rewind, 


:This sequence 


iThis test will 


sis detected. 
sin this test. 


T6:: 


START6: 


5$: 


G06: 


BGNTST 


will permit hardware 


retries, if not user disabled. 


run until exhaustion of the command count or fatal error 
All date patterns including random data will be used 


T3ONLY 

START6 
#BYPASS,L$TEST 
L$TEST,-(SP) 
#BYPASS, -( SP) 
#2,-(SP) 


#6 ,SP 
T6EXIT 


UDROP 
5$ 


#BYPASS,L$TEST 
L$TEST,-(SP) 
#BYPASS, -( SP) 
#2, -(SP) 


#6 , SP 
T6EXIT 


CLOCK 
G06 


sCHECK THE TEST 3 ONLY FLAG 
sBRANCH IF IT IS CLEAR 
sPRINT THE TEST BYPASSED MESSAGE 


sGET OUT 
sHAVE ALL UNITS BEEN DROPPED ? 


sGO START THE TEST 
sPRINT THE TEST BYPASSED MESSAGE 


sGET OUT IF NONE LEFT TO TEST 


sIS THE CLOCK ENABLED 
3NO, THEN CAN’T PRINT TIME 


Seep en SD MEME? «88 SECOND, 
S 


SECOND , (SP) 
-(SP) 
MINUTE ,( SP) 
-(SP) 
HOURS, (SP) 
TIME, -CSP) 
#4,-(SP) 

SP ,RO 


C$PNTF 
#12,SP 


PC,PATCLR 


sMAKE SURE WE START WITH PATTERN 1 


SEQ 159 

















SEQ 160 


6325 

6326 045370 
6327 045374 
6328 045400 
6329 045404 
6330 045406 


012705 
004737 
005737 
001477 
012737 


012705 
004737 
005737 
001465 
005337 
001366 


012705 
004737 
005737 
001453 


012705 
004737 
005737 
001444 


004737 
004737 
012737 


012705 
004737 
005737 
001426 
005337 
001366 


052737 
012705 
904737 
042737 
005737 
001406 


004737 
012705 
004737 
004737 


104432 
000040 


045614 
021240 
003524 


002424 


045622 
021240 
003524 


003404 


045630 
021240 
003524 


045614 
021240 
003524 


033714 
033564 
002424 


045636 
021240 
003524 


003404 


000001 
045644 
021240 
000001 
003524 


033464 
045614 
021240 


033640 


003404 


003404 


003440 


003440 


5$: 


10$: 


T6EXIT: 


MOV 
JSR 
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6319 045346 004737 033564 JSR PC,SDSTUP 
6320 045352 004737 033464 JSR PC ,CLREOT 
6321 
6322 045356 005037 003440 CLR TSTMSK 
6323 045362 005737 003524 TST UDROP 
6324 045366 001506 BEQ T6EXIT 


#T6REW,RS 


T 
#1300. ,COUNT 


#T6WRT RS 
PC ,SCHED 
UDROP 
T6EXIT 
COUNT 

S$ 


#T6WTM RS 
PC ,SCHED 
UDROP 
T6EXIT 


#T6REW,RS 
PC ,SCHED 
UDROP 
T6EXIT 


PC,PATCLR 
PC ,SOSTUP 
#1300. , COUNT 


#T6RD,RS 
PC ,,SCHED 


#LEDOB, TSTMSK 
#T6SKD,R5 

PC ,SCHED 
#LEDB, TSTMSK 
UDROP 

T6EXIT 


PC ,CLREOT 
#T6REW,RS 
PC, SCHED 


PC ,SDSAVE 
TST 
CSEXIT 
L10022-. 


sRESET THE RANDOM SEEDS 
sCLEAR ALL EOT INDICATIONS 


sALLOW NO ERRORS 
sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


SET UP TO DO REWIND 

GO ISSUE TO ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sSTEP UP THE WRITE ITERATION COUNT 


sSET UP A WRITE ITERATION 

:GO DO IT ON ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 

sGET OUT IF NONE LEFT TO TEST 
sSUBTRACT 1 FROM THE ITERATION COUNT 
sMORE COMMANDS TO DO, KEEP GOING 


s;SET UP TO WRITE 4 TAPE MARK 
GO DO IT ON ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


;SET UP TO REWIND ALL DRIVES 
:GO DO IT 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


sSTART AT PATTERN 1 
sRESET THE RANDOM SEEDS 
sSTEP UP THE WRITE ITERATION COUNT 


sSET UP TO READ AN ITERATION SET 

:GO DO IT ON ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 

sGET OUT IF NONE LEFT TO TEST 
sSUBTRACT 1 FROM THE ITERATION COUNT 
sMORE COMMANDS TO DO, KEEP GOING 


sSET UP TO ALLOW LEOT DETECTED 
s;SKIP TO LEOT 

:GO DO IT AN ALL DRIVES 
sDISALLOW LEOT DETECTED 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 


;CLEAR THE EOT INDICATORS 
;SET UP TO REWIND ALL DRIVES 
:GO DO IT 


sRESET THE RANDOM SEEDS 
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6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 


045614 
045615 
045616 
045620 


045622 
045623 
045624 
045626 


045630 
045631 
045632 
045634 


045636 
045637 
045640 
045642 


045644 
045645 
045646 
045650 


045652 
045652 
045652 





104401 





T6REW: 


T6WRT: 


T6WTM: 


T6RD: 


T6SKD: 


L10022 





-BYTE 
-BYTE 
- WORD 
- WORD 


-BYTE 
-BYTE 
. WORD 
. WORD 


-BYTE 
-BYTE 


-BYTE 
-BYTE 
- WORD 
- WORD 


-BYTE 
-BYTE 
- WORD 
- WORD 


-EVEN 


ENDTST 
” TRAP 
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REW 
NULPAT 


CSETST 





sREWIND 


sWRITE RECORDS 


sWRITE TAPE MARK 


sREAD RECORDS 


sSKIP TO LEOT 


SEQ 161 


(ener i ee a on 
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6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 


6415 
6416 
6417 


6418 
6419 
6420 
6421 
6422 


6423 
6424 
6425 
6426 
6427 


6428 
6429 
6430 
6431 
6432 
6433 
6434 
6435 


105737 
001414 


013746 
012746 
012746 
010600 
104417 
062706 
000137 


005737 
001014 


013746 
012746 
012746 
010600 
104417 
062706 
000137 


105737 
001421 


005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 
010600 
104417 
062706 


005037 
012705 
005037 
052737 


004737 
004737 


002234 


002114 
021001 
000002 


000006 
046230 
003524 
002114 


021001 
000002 


000006 
046230 
002212 


002215 
002214 


002213 
020044 
000004 


000012 


003410 
002232 
003440 
000001 


033564 
033714 





003440 


-SBTTL TEST 7: Conversation Test 


3 

sConversation mode will run with or without error reports. The user 
scan select, from a list of commands, a sequence which can be used to 
semulate a known failure mode. Between commands, the user can specify 
sunique delays, ranging from 10 to 250 ms. The user can follow each 
stape command with integer values, the first indicating the 
sbyte/record/file count and the second indicating the # of repetitions 
snecessary for that command. 


1 BGNTST 
TSTB T3ONLY ;CHECK THE TEST 3 ONLY FLAG 
BEQ START? sBRANCH IF IT IS CLEAR 
PRINTF #BYPASS,L$TEST sPRINT THE TEST BYPASSED MESSAGE 
MOV L$TEST,-(SP) 
MOV #BYPASS, -(SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6 , SP 
JMP T7EXIT GET OUT 
START7: TST UDROP sHAVE ALL UNITS BEEN DROPPED ? 
BNE 5$ :GO START THE TEST 
PRINTF #BYPASS,LSTEST sPRINT THE TEST BYPASSED MESSAGE 
MOV L$TEST,-CSP) 
MOV #BYPASS, -(SP) 
MOV #2,-CSP) 
MOV SP ,RO 
TRAP C$PNTF 
ADD #6 , SP 
JMP T7EXIT sGET OUT IF NONE LEFT TO TEST 
S$: TSTB CLOCK ;IS THE CLOCK ENABLED 
BEQ G07 3NO, THEN CAN’T PRINT TIME 
PRINTF #TIME,<B,HOURS>,<B,MINUTE>,<B,SECOND>, 
CLR -C(SP) 
BISB SeCOND , (SP) 
CLR -(SP) 
BISB MINUTE , (SP) 
CLR -(SP) 


BISB HOURS, (SP) 
MOV #TIME, -CSP) 
MOV SP ,RO 

TRAP C$PNTF 

ADD #12,SP 


G07: CLR BRCNT ; CLEAR THE BRANCH COUNTER 
MOV #T7TBL,RS sPOINT RS TO TEST 7 TABLE 
CLR TSTMSK sNO ALLOWABLE ERRORS 
BIS #LEDB, TSTMSK sSET UP TO ALLOW LEOT DETECTED 


10$: JSR PC ,SOSTUP ;SET UP THE RANDOM SEEDS 
JSR PC,PATCLR sUSE THE SAME PATTERN 


SEQ 162 
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6436 
6437 
6438 
6439 


046052 
046056 
046062 
046070 
046072 
046100 
046102 


046106 
046112 
046114 
046116 
046120 
046122 


046124 
046132 
046134 
046142 
046144 
046152 


046160 
046164 
046166 
046174 
046176 
046202 


046206 
046212 
046214 


046216 
046222 
046226 
046230 
046234 
046234 
046236 


046240 
046240 
046240 


046242 


004737 
062705 
122765 
001457 
122765 
001011 
016501 


013702 
005302 
001376 
005301 
001372 
000747 


122765 
001031 
032737 
001006 
052737 
016537 


005337 
001004 
042737 
000722 
016501 
012705 


062705 
005301 
001374 


004737 
005737 
001305 
004737 


104432 
000002 


104401 


033464 
000006 
177777 
000310 
000002 


002116 


000300 
000001 


000001 
000004 


003410 
000001 


000002 
002232 


000006 


021240 
003524 


033640 





000000 
000000 


000000 
003516 


003516 
003410 


003516 


20$: 
30$: 


40$: 


50$: 


60$: 


70$: 


80$: 


T7EXIT: 


L10023: 


-EVEN 
ENDTST 
TRAP 
ENDMOD 


PC ,CLREOT 
T7EXIT 
#310,CMDCRS) 
40$ 
ITMCNTC(RS),R1 
L$DLY,R2 

R 


#300 ,CMDCRS) 
80$ 
#T7BRFL,PCFLAG 
50$ 


#T7BRFL,PCFLAG 
ITRCNTCRS) ,BRCNT 


BRCNT 
60$ 
#T7BRFL,PCFLAG 


10$ 
ITMCNTCRS),R1 
#T7TBL,RS 


#TSTSTP,RS 
Ri 
70$ 


PC ,SCHED 
UDROP 

10$ 

PC ,SDSAVE 
TST 


CSEXIT 
L10023-. 


CSETST 


sCLEAR THE EOT FLAG 
sMOVE RS TO THE NEXT TEST TABLE 
sIS IT AN END OF SEQUENCE COMMAND ? 


sGET OUT IF IT IS 


sIS IT A DELAY COMMAND ? 


sNO KEEP GOING 


sPUT THE DELAY VARIABLE IN R1 
sGET THE PROGRAM DELAY VARIABLE 


sDECREMENT R2 


sKEEP GOING TILL ZERO 


sDECREMENT R1 


sRESET R2 AND GO TILL R1 
sGET THE NEXT COMMAND 


sIS ITA — COMMAND ? 


sNO, GO O 






SEQ 163 


; HAVE WE ALREADY LOAD THE BRANCH COUNT ? 


; YES, DON'T OVER WRITE IT 
; REMEMBER THAT YOUR IN A LOOP 
; ITERATION COUNT TO BRANCH COUNT 


; HAVE WE BRANCHED THE REQUIRED TIMES ? 


sNO, KEEP GOING 


:GO START THE TEST 
sHAVE ALL UNITS BEEN DROPPED ? 


sNO, KEEP TESTING 


sSAVE THE RANDOM SEEDS 


NO, CONTINUE LOOPING 

; CLEAR THE BRANCH FLAG 

; GET NEXT COMMAND 

sPUT THE COMMAND NUMBER IN R1 
sPOINT RS TO TEST 7 TABLE 


sSTART STEPPING RS TO THE COMMAND 
sIS THIS THE RIGHT PLACE ? 








er cr 
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TEST 7: Conversation Test 
6484 
eee - TITLE PARAMETER CODING 
coor -SBTTL HARDWARE PARAMETER CODING SECTION 
6 
6527 046242 BGNMOD 
6528 
6529 ++ 
6530 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
6531 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
6532 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
6533 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
6534 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
6535 ; WITH THE OPERATOR. 
6536 $-- 
6537 
6538 046242 BGNHRD 
046242 000032 -WORD L10024-L$HARD/2 
046244 L$HARD:: 
6539 
6540 046244 GPRMA TKIPAD ,0,0,160002, 177564, YES 
046244 000031 - WORD TS$CODE 
046246 046270 . WORD TKIPAD 
046250 160002 . WORD T$LOLIM 
_. 046252 177564 WORD T$HILIM 
6541 046254 GPRMD TKUNT,2,0,777,0,251, YES 
046254 001032 WORD TS$CODE 
046256 046305 WORD TKUNT 
046260 000777 WORD 777 
046262 000000 WORD T$LOLIM 
046264 000251 WORD T$HILIM 
6542 
6543 046266 EXIT HRD 
‘046266 021004 -WORD TS$CODE 
6544 
6545 


6546 046270 124 113 111 TKIPAD: .ASCIZ ?TKIP ADDRESS? 

6547 046305 124 057 115  TKUNT: .ASCIZ ?T/MSCP UNIT NUMBER? 
6548 -EVEN 

6549 046330 ENDHRD 


-EVEN 
046330 L10024: 
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SOFTWARE PARAMETER CODING SECTION 





6551 .SBTTL SOFTWARE PARAMETER CODING SECTION 
6553 pee 
6554 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
6555 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
6556 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
6557 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
6558 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
6559 ; WITH THE OPERATOR. 
6560 te 
6561 
6562 046330 BGNSFT 
046330 001107 .WORD L10025-L$SOFT/2 
046332 L$SOFT:: 
6563 
6564 046332 GPRML  ECLK,0,1, YES 
046332 000130 .WORD T$CODE 
046334 047216 WORD ECLK 
046336 000001 -WORD 1 
6565 046340 XFERF  5$ 
046340 013044 .WORD TSCODE 
6566 046342 GPRMD HOUR, 0,0,177400,0,24., YES 
046342 000052 .WORD TSCODE 
046344 047247 WORD HOUR 
046346 177400 WORD 177400 
046350 000000 -WORD T$LOLIM 
046352 000030 WORD  T$HILIM 
6567 046354 GPRMD MINT,2,0,000377,0,60., YES 
046354 001052 .WORD T$CODE 
046356 047331 WORD MINT 
046360 000377 WORD 000377 
046362 000000 -WORD = T$LOLIM 
sen (Mo3e4 00074 WORD = T$HILIM 
6 
6569 046366 5$: GPRML CTPA,4,400,YES 
046366 002130 .WORD TSCODE 
046370 047376 -WORD CTPA 
046372 000400 -WORD 400 
6570 046374 XFERF 108 
046374 012044 .WORD TS$CODE 
6571 046376 GPRML SERR,6,1,YES 
046376 003130 WORD T$CODE 
046400 047433 .WORD SERR 
046402 000001 -WORD 1 
6572 046404 GPRML SERC,6,400, YES 
046404 003130 .WORD T$CODE 
046406 047477 WORD  SERC 
046410 000400 “WORD 400 
6573 046412 GPRML PADD,10,1, YES 
046412 004130 .WORD TSCODE 
046414 047541 -WORD PADD 
046416 000001 WORD 1 
6574 
6575 046420 10$:  GPRML PRPA, 10,400, YES 
046420 004130 WORD - T$CODE 
046422 047570 WORD  PRPA 
046424 000400 WORD 400 
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6576 046426 

046426 024044 
6577 046430 

046430 005130 

046432 047623 

046434 000001 
6578 046436 

046436 004024 
6579 046440 

046440 005130 

046442 047666 

046444 000400 
6580 046446 

046446 006130 

046450 047725 

046452 000001 
6581 046454 

046454 006130 

046456 047774 

046460 000400 
6582 046462 

046462 007130 

046464 050034 

046466 000001 
6583 046470 

046470 007130 

046472 050077 

046474 000400 
6584 
6585 046476 

046476 010130 

046500 050142 

046502 000001 
6586 046504 

046504 023044 
6587 046506 


6588 046520 
046520 011130 
046522 050207 
046524 000001 
6589 046526 
046526 011130 
046530 050230 
046532 000400 
6590 046534 
046534 01213¢ 
046536 050270 
046540 000001 
6591 046542 
046542 012130 
046544 050334 
046546 000400 


Bocas eae ea EE rier ae 


11$: 


15$: 





XFERF 
. WORD 
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15$ 

T$CODE 
SOER,12,1,YES 
T$CODE 

SOER 

1 

11$ 

TSCODE 

SRER 12,400, YES 
T$CODE 

SRER 

400 
CLMD,14,1, YES 
T$CODE 

CLMD 


1 
MDTB,14,400, YES 
T$CODE 


MOTB 

400 

NOCL 16,1, YES 
T$CODE 

NOCL 


1 

POMP ,16,400, YES 
T$CODE 

POMP 

400 


TSPA,20,1, YES 
T$CODE 

TSPA 

1 

20$ 

TSCODE 

PATE ,20,0,177400,0,7,YES 
T$CODE 

PATE 

177400 

T$LOLIM 

T$HILIM 

T30N,22,1, YES 

T$CODE 

T30N 


1 

TSCP 22,400, YES 
T$CODE 

TScP 


400 

BOMP 24,1, YES 
T$CODE 

BDMP 


1 

CHGF ,24,400, YES 
TSCODE 

CHGF 

400 


SEQ 166 
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6592 046550 XFERT 25% 
046550 002024 -WORD TSCODE 
6593 046552 208: XFER SFTEX1 
ane 046552 076004 -WORD TSCODE 
6 
6595 046554 25$: GPRMD CMD1,26,0,000377,0,377,YES 
046554 013032 -WORD TSCODE 
046556 050476 -WORD CMD1 
046560 000377 -WORD 000377 
046562 000000 -WORD TSLOLIM 
046564 000377 -WORD TS$HILIM 
6596 046566 GPRMD DPAT,26,0,177400,0,7,YES 
046566 013032 -WORD TSCODE 
046570 050370 -WORD ODPAT 
046572 177400 -WORD 177400 
046574 000000 WORD TS$LOLIM 
046576 000007 -WORD T$HILIM 
6597 046600 GPRMD = =ICNT,30,0,177777,0,MAXBUF , YES 
046600 014052 -WORD TSCODE 
046602 050407 -WORD ICNT 
046604 177777 -WORD 177777 
046606 000000 -WORD TS$LOLIM 
046610 020000 -WORD TS$HILIM 
6598 046612 GPRMD = ITER,32,0,177777,0,65000, YES 
046612 015052 -WORD TSCODE 
046614 050451 -WORD ITER 
046616 177777 -WORD 177777 
046620 000000 -WORD  TS$LOLIM 
ance 046622 065000 -WORD TSHILIM 
6600 046624 GPRMD = CMD2,34,0,000377,0,377, YES 
046624 016032 -WORD TSCODE 
046626 050504 -WORD CMD2 
046630 000377 -WORD 000377 
046632 000000 -WORD TSLOLIM 
046634 000377 -WORD TS$HILIM 
6601 046636 GPRMD OPAT,34,0,177400,0,7,YES 
046636 016032 -WORD TSCODE 
046640 050370 -WORD ODPAT 
046642 177400 WORD 177400 
046644 000000 -WORD TSLOLIM 
046646 000007 -WORD TSHILIM 
6602 046650 GPRMD ICNT,36,0,177777,0,MAXBUF , YES 
046650 017052 -WORD TSCODE 
046652 050407 -WORD ICNT 
046654 177777 -WORD 177777 
046656 000000 -WORD TSLOLIM 
046660 020000 -WORD TS$HILIM 
6603 046662 GPRMD ITER,40,0,177777,0,65000, YES 
046662 020052 -WORD TSCODE 
046664 050451 -WORD ITER 
046666 177777 -WORD 177777 
046670 000000 -WORD TSLOLIM 
a 046672 065000 -WORD TSHILIM 
6605 046674 GPRMD CMD3,42,0,000377,0,377, YES 
046674 021032 -WORD TSCODE 


SiG ee 


PARAMETER CODING 


— 


6606 


6607 


6608 


6609 


6610 
6611 


6612 
6613 


6614 


6615 


6616 


6617 
6618 


046676 
046700 
046702 
046704 
046706 
046706 
046710 
046712 
046714 
046716 
046720 
046720 
046722 
046724 
046726 
046730 
046732 
046732 
046734 
046736 
046740 
046742 
046744 
046744 


046746 
046746 


046750 
046750 
046752 
046754 
046756 
046760 
046762 
046762 
046764 
046766 
046770 
046772 
046774 
046774 
046776 
047000 
047002 
047004 
047006 
047006 
047010 
047012 
047014 
047016 


047020 
047020 
047022 
047024 


050512 
000377 


050370 


024032 
050520 
000377 
000000 
000377 


024032 
050370 


025052 
050407 
177777 
000000 
020000 


026052 
050451 
177777 
000000 
065000 


027032 
050526 
000377 
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SFTEX1: XFER 
. WORD 


CONT1: GPRMD 


CMD3 

000377 

T$LOLIM 

T$HILIM 

DPAT ,42,0,177400,0,7,YES 
TSCODE 

DPAT 

177400 

T$LOLIM 

T$HILIM 

ICNT ,44,0,177777,0,MAXBUF , YES 
T$CODE 


SF TEX2 
TSCODE 


CMD4 ,50,0,000377,0,377, YES 
T$CODE 


T$HILIM 
DPAT,50,0,177400,0,7, YES 
T$CODE 


DPAT 

177400 

T$LOLIM 

TSHILIM 

ICNT ,52,0,177777,0,MAXBUF , YES 
T$CODE 

ICNT 

177777 

T$LOLIM 

TSHILIM 

ITER ,.54,D0,177777,0,65000, YES 
T$CODE 


ITER 
177777 
T$LOLIM 
TSHILIM 


CMDS ,56,0,000377,0,377, YES 
T$CODE 





SEQ 168 
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poe 


6619 


6620 


6621 


6622 
6623 


6624 


6625 


6626 


6627 


6628 
6629 


6630 
6631 


050534 


050370 


034052 
050451 
177777 
000000 
065000 


002004 


025004 


035032 
050542 
000377 
000000 
000377 





SFTEX2: 


CONT2: 
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T$LOLIM 
T$HILIM 
DPAT ,56,0,177400,0,7,YES 
T$CODE 


DPAT 

177400 

T$LOLIM 

T$HILIM 

ICNT ,60,0,177777,0,MAXBUF , YES 
T$CODE 


ICNT 

177777 

T$LOLIM 

T$HILIM 

ITER ,62,0,177777,0,65000, YES 
T$CODE 

ITER 

177777 

T$LOLIM 

TSHILIM 


CMD6 ,64,0,000377,0,377, YES 
T$CODE 


ITER, 70,0,177777,0,65000, YES 
T$CODE 


ITER 
177777 
TS$LOLIM 
TSHILIM 
CONT2 
TS$CODE 


SFTEX3 
TsCODE 


CMD7 ,72,0,000377,0,377, VES 
TSCODE 

CMO? 

000377 

TSLOLIM 

TSHILIM 


SEQ 169 
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6632 047156 


6633 


6634 


047156 
047160 
047162 
047164 
047166 
047170 
047170 
047172 
047174 
047176 
047200 
047202 
047202 
047204 
047206 
047210 
047212 


047214 
047214 


047216 
047247 
047331 


047374 
047374 


047376 
047433 
047477 
047541 


047566 
047566 


047570 
047623 
047666 
047725 


047772 
047772 
047774 


050034 
050077 


059140 
050140 


059142 


035032 
050370 
177400 
000090 


037052 
050451 
177777 
000000 
065000 


070004 
105 


040 
040 
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116 
111 
111 


110 
105 
105 
105 


110 
105 
040 
105 


105 
105 
105 


110 


101 
116 


116 
116 


101 


SFTEX3: 


ECLK: 
HOUR: 
MINT: 


SFTEX4: 


CTPA: 
SERR: 
SERC: 
PADD: 


SFTEXS: 


PRPA: 
SOER: 
SRER: 
CLMD: 


SFTEX6: 


MOTB: 
NOCL: 
POMP: 


SF TEX7: 


TSPA: 


XFER 
. WORD 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


XFER 
.WORD 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


XFER 
- WORD 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


XFER 
. WORD 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 
XFER 

- WORD 


-ASCIZ 


DPAT,72,0,177400,0,7,YES 
$CODE 


IM 
ICNT,74,0,177777,0,MAXBUF , YES 
T$CODE 
ICNT 
177777 
T$LOLIM 
TSHILIM 
ITER, 76,0,177777,0,65000, YES 
TSCODE 
ITER 
177777 
TSLOLIM 
TSHILIM 


SF TEX4 
TSCODE 


ENABLE TIME OF DAY CLOCK/ 
/ INPUT HOUR IN 24 HOUR FORMAT (OMIT LEADING ZERO)/ 
/ INPUT MINUTES COMIT LEADING ZERO)/ 


SFTEXS 
TSCODE 


/CHANGE CONTROLLER PARAMETERS/ 

/ ENABLE CONTROLLER ERROR CORRECTION/ 
/ ENABLE CONTROLLER ERROR RECOVERY/ 

/ ENABLE PAD BLOCKING/ 


SF TEX6 
TSCODE 


/CHANGE PRINTING PARAMETERS/ 

/ ENABLE SOFT ERROR REPORT PRINTING/ 

/ ENABLE READ SOFT ERRORS ONLY/ 

/ ENABLE CLEAR MEDIA TABLE EVERY PASS/ 


SF TEX7 
T$CODE 
/ ENABLE PRINTING OF MEDIA TABLE/ 


/ ENABLE CLEAR STATS ON FATAL ERROR/ 
/ ENABLE VARIABLES DUMP ON ERROR/ 


SFTEX8 
TSCODE 


/CHANGE TEST PARAMETERS/ 


ee Oa \ Se ee 


SEQ 170 
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6669 050171 

6670 050207 

6671 050230 

6672 050270 

6673 050334 

6674 

6675 

6676 050366 
050366 

6677 

6678 050370 

6679 050407 

6680 05045i 

6681 

6682 

6683 050474 
050474 

6684 

6685 050476 

6686 050504 

6687 050512 

6688 050520 

6689 050526 

6690 050534 

6691 050542 

6692 

6693 

6694 050550 

6695 050550 


050550 


6704 050550 


6706 050550 
6707 050560 
6708 070560 


6710 110560 
6712 115620 


6715 115740 


115740 
115742 
115744 


6717 115744 
6718 115744 
115744 
115746 
115750 
6719 115750 
6720 115752 


ie sas a il a 


040 
040 
040 
040 
040 


043004 


040 
040 
040 


026004 


103 
103 
103 
103 
103 
103 
103 


115754 
000004 


000000 
000002 


174500 
000000 
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104 
122 
105 
105 
103 


040 
040 
040 


115 
115 
115 
115 
115 
115 
115 


PATE: 
T30ON: 
TSCP: 
BOMP: 
CHGF : 


SFTEX8: 


DPAT: 
ICNT: 
ITER: 


SFTEX9: 


CMD1: 
CMD2: 
CMD3: 
CMD4: 
CMDS: 
CMD6: 
CMD7: 


SF TEXT: 


-4SCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


XFER 
- WORD 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


XFER 
. WORD 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-EVEN 


L10025: — 


RDBUF : : 
WRTIBUF : : 


MEDIAS:: 
PATCH:: 


LASTAD 


L$LAST:: 


L10026: 


ENDMOD 


-EVEN 
-WORD T$ 
-WORD T$ 


BGNSETUP 
BGNP TAB 
- WORD 
- WORD 


/ DATA PATTERN/ 


09:00 Page 85-6 





/ RUN TEST 3 ONLY/ 

/ ENABLE DATA COMPARES IN TEST 5/ 

/ ENABLE PRINT READ BUFFER IN TEST 5/ 
/ CHANGE COMMAND SEQUENCE/ 


SFTEX9 
TSCODE 


/ DATA PATTERN/ 


/ ITEM COUNT (BYTE,RECORD,OBJECT)/ 
/ ITERATION COUNT/ 


SF TEXT 
TSCODE 


“CMD/1" 
“CMD/2” 
"CMD/3 “ 
“CMD/4" 
"CMD/5”" 
“CMD/6 ” 
“CMD /7" 


-BLKW 
-BLKW 
-BLKW 
-BLKW 


-BLKW 


FREE 
SIZE 


0 
L10030-. 


«WORD 
- WORD 


4 

10000 
10000 
1296. 


50 


72-1 
174500 
0 


sREAD BUFFER 
sWRITE BUFFER 


sMEDIA STATISTICS TABLE 
sPATCH SPACE 


sNUMBER OF P-TABLES 


;IP ADDRESS 
sUNIT NUMBER 


SEQ 171 





a < Be CR REE nN et rn 
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6721 115754 ENDP TAB 
115754 L10030: 
6722 115754 ENDSETUP 


6723 000001 -END 
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SEQ 173 


ABO = 000200 G BYPASS 021001 G CMR = 000031 G C$GETW= 000027 DRBSTP= 000104 G 
ABOER 011525 BYTADD 003446 G CMSTSV 010550 G C$GMAN= 000043 DRERFL= 000010 G 
ABOR 025346 BYTCNT 022124 G CNTEL 013145 C$GPHR= 000042 DRINUS 003350 G 
ABORT = 000004 G BYTES 003416 G CNTER 011674 C$GPRI= 000040 DROP = 000010 G 
ABOT 010662 G CDRECV 023710 G CNTERL 011172 C$INIT= 000011 DRGPIT= 000400 G 
ACC = 000040 G CORENO 010312 G CNTFLG 010562 G C$INLP= 000020 DROPPD= 000104 G 
ACCESS 024522 COREN1 010376 G CNTHI 010554 G C$MANI= 000050 DROPUN 040450 G 
ACR = 000041 G COREN2 010462 G CNTLEL 013172 C$MAP = 000102 DRSPBO 004932 G 
ADJUST 027146 COREN3 010546 G CNTLER 011132 C$MEM = 000031 DRSPB1 005072 G 
ADR = 000020 G CDSRGO 010272 G CNTT 010762 G C$MMU = 000103 DRSPB2 006132 G 
ALLPAT= 000200 G COSRGi 010356 G CNUSAV= 000014 G C$MSG = 000023 DRSPB3 007172 G 
ASSEMB= 000010 COSRG2 010442 G COLSAV= 000016 G CSOPNR= 000034 ORVEL 013125 

AVALAB 025026 COSRG3 010526 G COMEXI 025700 CSOPNW= 000104 ORVER 011715 

AVB = 000001 G CF .ATN= 000200 G CONID = 177777 G C$PNTB= 000014 DRVERL 011162 

AVL = 000130 G CF .MSC= 000100 G CONTPA 002217 G C$PNTF= 000017 DRVT 010772 G 
AVLB = 000040 G CF. .OTH= 000040 G CONTRV 020532 G CSPNTS= 000016 DSPSTP= 000004 G 
AVLER 011556 CF .THS= 000020 G CONT1 046750 C$PNTX= 000015 DSRNGO 010226 G 
AVLT 010702 G CHGF 050334 CONT2 047144 C$PUTB= 000072 DSRNG1 010312 G 
AVU) = 000134 G CHGFLG 002237 G CORDMP 033742 C$PUTW= 000073 DSRNG2 010376 G 
BADEL 013233 CHODAT 024502 COREL 012627 C$QIO = 000377 DSRNG3 010462 G 
BADER 011643 CLMD 047725 CORERL 011232 C$RDBU= 000007 DSTEL 013103 

BADERL 011142 CLOCK 002212 G COUNT 003404 G CSREFG= 000047 DTCPER= 000070 G 
BDMP 050270 CLREOT 033464 G COUNTS 020202 G C$REL = 000077 DUMP 020347 G 
BITO = 000001 G CLRMED 002226 G CPRIEX 014350 C$RESE= 000033 DUMPKT 003344 G 
BITOO = OC0001 G CLSDRV 023444 G CRD = 177776 G CSREVI= 000004 DUMP1 020430 G 
BITO1 = 000002 G CMD = 000000 G CROLIM 010571 G C$RFLA= 000021 DUMP2 020471 G 
BITO2 = 000004 G CMDASC 011322 G CTPA 047376 C$RPT = 000025 ECBEL 013001 

BITO3 = 000010 G CMDBF1 003566 G CsAU = 000052 C$SEFG= 000046 ECBERL 011272 

BITO4 = 000020 G CMDBF2 003636 G C$AUTO= 000061 C$SPRI= 000041 ECCBC = 000036 G 
BITOS = 000040 G CMDBF3 003706 G C$BRK = 000022 C$SVEC= 000037 ECCOC = 000026 G 
BITO6 = 000100 G CMDBF4 003756 G C$BSEG= 000004 C$TOME= 000076 ECCFLG= 000100 G 
BITO7 = 000200 G CMDBLD 022002 G C$BSUB= 000002 DATAEL 031436 ECCTC = 000030 G 
BITO8 = 000400 G CMDCNT 003400 G C$CLCK= 000062 DATBL 003472 G ECDEL 012663 

BITO9 = 001000 G CMDER 011502 CSCLEA= 000012 DATER 011630 ECDERL 011312 

BIT1 = 000002 G CMDLST= 000001 G C$CLOS= 000035 DATPAT= 000001 G ECLK 047216 

BIT10 = 002000 G CMDONE= 000200 G CSCLP1= 000006 DATT 010742 G ECTEL 012707 

BIT11 = 004000 G CMDSEQ= 000006 G CSCPBF= 000074 DAY 020125 G ECTERL 011302 

BIT12 = 010000 G CMDSSV= 000012 G C$CPME= 000075 DAYS 003564 G EC1COR= 000050 G 
BIT13 = 020000 G CMDT 010652 G CSCVEC= 000036 DCBEND 004032 G EC2COR= 000052 G 
BIT14 = 040000 G CMDTBL 024366 CSDCLN= 000044 DCBSTP= 000050 G EDCEXT 031244 

BIT15 = 100000 G CMD1 050476 CsD0DU= 000051 DCB3SP= 000170 G EDLEXT 032042 

BIT2 = 000004 G cCMD2 050504 C$DRPT= 000024 DCMDBF 003572 G EF .CON= 000036 G 
BIT3 = 000010 G CMD3 050512 C$s0U = 000053 DCMPER 012507 EF .EOT= 000010 G 
BIT4 = 000020 G CMD4 050520 CSEDIT= 000000 DCMPT 011112 G EF .LOG= 000040 G 
BITS = 000040 G CMDS 050526 CSERDF= 000055 DEVERR 013272 G EF .NEW= 000035 G 
BIT6 = 000100 G CMD6 050534 CSERHR= 000056 DEVEXT 014400 EF .PWR= 000034 G 
BIT7 = 000200 G CMD7 050542 CSERRO= 000060 DEVFAT= 000001 G EF .RES= 000037 G 
BITS = 000400 G CMLSER 012213 CSERSF= 000054 DFPTBL 002204 G EF .SEX= 000020 G 
BIT9 = 001000 G CMMDSQ 021406 G CSERSO= 000057 DIAGMC= 000000 EF .STA= 000040 G 
BOE = 000400 G CMP) = 000030 G CSESCA= 000010 DMPBUF 002236 G ELTEXT 032170 

BOTER 011751 CMPDAT 032564 G CSESEG= 000005 DMPFLG 002231 G ENDPAT= 000010 G 
BOT 011012 G CMPEL 013030 CSESUB= 000003 DPAT 050370 EOT = 000004 G 
BRCNT 003410 G CMPER 012464 CSETST= 000001 DQCMD 027674 G EQTBIT= 000002 G 
BUFADR 003422 G CMPER! 011152 CSEXIT= 000032 DRBENO 005072 G EOTPR = 000010 G 
BUFDMP 034074 CMPERR 003444 G CSFREQ= 000101 DRBEN1 006132 G ERASE 024750 

BUFDSC 025616 CMPPRI 014210 CS$FRME= 000100 DRBEN2 007172 G ERASGP 025006 

BUFOFF= 000012 G CMPT 010732 G CSGETB= 000026 DRBEN3S 010232 G ERG = 000120 G 





el 
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ERI = 000113 G EXC3A4 027366 GSEXCP= 000400 IONORM= 000000 G LUNG 002314 G 
ERLGER 014502 G EXC4A1 027410 G$HILI= 000002 IOPDRE= 000003 G LUN1 002506 G 
ERLOO 017146 G EXIT 025722 G$LOLI= 000001 IOSTAT 010546 G LUN2 002700 G 
ERLOL 017203 G EXTCLN 040442 G$NO = 000000 IOTIME= 000004 G LUN3 003072 G 
ERLO2 017301 G EXTINT 040340 GSOFFS= 000400 ISR = 000100 G L$ACP 002110 G 
ERLO3 017365 G EXTSRT 032526 GSOFSI= 000376 ISTART 037750 L$APT 002036 G 
ERLO&4 017454 G EX3REW 044212 G$PRMA= 000001 ITER 050451 L$AU 040714 G 
ERLOS 017540 G ESEND = 002100 G$PRMD= 000002 ITERS 003420 G L$AUT 002070 G 
ERLO6 017627 G ESLOAD= 000035 G$PRML= 000000 ITMCNT= 000002 G L$AUTO 040376 G 
ERLO7? 017713 G FAIL = 000020 G G$RADA= 000140 ITMOFF= 000002 G L$CCP 002106 G 
ERLOB8 017743 G FLAG = 040000 G G$RADB= 000000 ITRCNT= 000004 G L$CLEA 040400 G 
ERR = 100000 G FMTER 011731 G$RADD= 000040 IVSER 012135 L$Cco 002032 G 
ERRBLK 013270 G FMTT 011002 G G$RADL= 000120 IVSTi 010712 G L$DEPO 002011 G 
ERRDEC 030316 G FM.BAD= 000001 G G$RADO= 000020 IVST2 011032 G L$DESC 002142 G 
ERRDEI 031006 G FM.CNT= 000000 G G$XFER= 000004 IVST3 011102 G L$DESP 002076 G 
ERRDEL 031250 G FM.TPE= 000005 G G$YES = 000010 IXE = 004000 G L$DEVP 002060 G 
ERREXT 031026 FSAU = 000015 HARD = 000002 G I$AU = 000041 L$DISP 002124 G 
ERRLOG= 040000 G FSAUTO= 000020 HOLEXT 021236 I$AUTO= 000041 L$DLY 002116 G 
ERRMSG 013266 G F$BGN = 000040 HELP = 000000 ISCLN = 000041 L$DTP 002040 G 
ERRNBR 013264 G FSCLEA= 000007 HEXTBL 011442 G IsDU = 000041 L$DTYP 002034 G 
ERRTLY 032050 G F$DU = 000016 HIADDR= 000002 G I$HRD = 000041 L$DU 040706 G 
ERRTYP 013262 G FSEND = 000041 HIBYTE= 177777 G I$INIT= 000041 L$DUT 002072 G 
ERROO 015770 G FS$HARD= 000004 HIHEX 003554 G I$MOD = 000041 L$DVTY 002174 G 
ERROL 016040 G FSHW = 000013 HNOLRP (03412 G I$MSG = 000041 LSEF 002052 G 
ERRO2 016116 G FSINIT= 000006 HOE = 100000 G I$PROT= 000040 LSENVI 002044 G 
ERRO3S 016175 G F$JMP = 000050 HOUR 047247 I$PTAB= 000041 L$ERRT 013262 G 
ERRO4 = 016253 G F$MOD = 000000 HOURS 002213 G ISPWR = 000041 LSETP 002102 G 
ERROS 016332 G FS$MSG = 000011 HRD = 000007 G I$RPT = 000041 L$EXP1 002046 G 
ERRO6 016411 G FS$PROT= 000021 HSTER 012165 I$SEG = 000041 LS$EXP4 002064 G 
ERRO7 016461 G FS$PWR = 000017 HSTIMO= 000000 G I$SETU= 000041 L$EXPS 002066 G 
ERROB 016521 G FSRPT = 000012 HSTT 010752 G ISSFT = 000041 L$HARD 046244 G 
ERRO9 016556 G FS$SEG = 000003 HUNGER 012246 I$SRV = 000041 L$HIME 002120 G 
ERR1i0 016617 G F$SOFT= 000005 HWR = 000006 G I$SUB = 000041 L$HPCP 002016 G 
ERR11 016651 G FSSRV = 000010 H1READ= 000054 G I$TST = 000041 L$HPTP 002022 G 
ERR1i2 016675 G F$SUB = 000002 HIWRIT= 000060 G J$JMP = 000167 LSHW 002204 G 
ERRi3 016733 G F$SW = 000014 H2READ= 000056 G KWCSR = 177546 G L$ICP 002104 G 
ERR14 016764 G FSTEST= 000001 H2WRIT= 000062 G KWHDL 021100 G L$INIT 037012 G 
ERRi5 017012 G GCMDST 025400 IBE = 010000 G LEDB = 000001 G L$LADP 002026 G 
ERR16 017062 G GCS = 000210 G ICNT 050407 LEDER 012105 L$LAST 115744 G 
ERR17 017107 G GCSCFL= 000020 G IDONE 026506 LEDT 011072 G L$LOAD 002100 G 
ERS = 000110 G GCSEXT 027320 IDU = 000040 G LEOTFL= 000030 G L$LUN 002074 G 
ERTLY 031154 GCSHDL 026534 G IER = 020000 G LF .CON= 000100 G L$MREV 002050 G 
ETLLY 032132 G GCSREF 010552 G ILCMD 025604 LF.SNR= 000001 G L$NAME 002000 G 
EVENT 003556 G GCSRFL= 000040 G ILLCMD= 000007 G LF .SUC= 000200 G L$PRIO 002042 G 
EVL = 000004 G GO = 000001 G ILOOP 026350 LGPEL. 013057 L$PROT 021036 G 
EV.COR= 000150 G GO1 041066 IMM == 000200 G LGPERL 011202 L$PRT 002112 G 
EV.CTO= 000052 G G02 043270 IMMBIT= 000003 G LGSTAT 027732 G L$REPP 002062 G 
EV.DST= 000050 G GO3 043726 INIT 025342 LINE 020527 G L$REV 002010 G 
EV.HER= 000213 G G04 044442 INITER 012400 LOBYTE= 177776 G LS$RPT 034216 G 
EV.IDS= 000152 G GO5 045022 INITIT 040344 G LOE = 040000 G L$SOFT 046332 G 
EV.LGP= 000010 G G06 045342 INT = 000170 G LOHEX 003552 G L$SPC 002056 G 
EV.SER= 000153 G GO7 046020 INTDON= 000001 G LOOP 026340 L$SPCP 002020 G 
EV.SRI= 000113 G GUNSTA 025440 INTERR= 000006 G LOOPS 010560 G L$SPTP 002024 G 
EV.SRT= 000053 G GUS = 000220 G INTTBL 026524 LOT = 000010 G L$STA 002030 G 
EV.URE= 000350 G GSCNTO= 000200 IOERTB 010572 G LSTENT= 000134 G L$SwW 002212 G 
EXC1A2 027322 G$DELM= 000372 IOHUNG= 000002 G LUNFLG= 000026 G L$TEST 002114 G 
EXC2A3 027344 G$DISP= 000003 IOICRD= 020000 G LUNSTP= 000172 G L$TIML 002014 G 
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L$UNIT 002012 G L10026 115750 OFLT 010672 G PATGN7 022520 P.MXWR= 000044 G 
L.BADR= 000030 G L10030 115754 OLDBLK= 000152 G PATSAV= 000024 G P.NREC= 000050 G 
L.CHVR= 000025 G MAXBUF = 020000 G OLDTRK= 000154 G PATTBL 022344 G P.OPCD= 000010 G 
L.CNTI= 000014 G MAXITR= 003720 G OLD1 026652 PAT1 = 000001 G P.OTRF= 000014 G 
L.CNTO= 000061 G MOTB 047774 OLD2 026732 PAT2 = 000002 G P.POS = 000034 G 
L.CNT1= 000062 G MD.ALL= 000002 G OLD3 027012 PAT3 = 000003 G P.RCSK= 000014 G 
L.CNT2= 000063 G MD.CMP= 040000 G OLD4 027072 PAT4 = 000004 G P.REDD= 000014 G 
L.CRF = 000000 G MD.CSE= 020000 G ONE = 000001 G PATS = 000005 G P.SPED= 000042 G 
L.CSVR= 000024 G MD.DLE= 000200 G ONEFIL= 000001 PAT6 = 000006 G P.STS = 000012 G 
L.DFLG= 000054 G MD.EXC= 000040 G ONL = 000140 G PAT7 = 000007 G P.TIME= 000024 G > 
L.DRVC= 000053 G MD.IMM= 000100 G ONLB = 000100 G PCBEND= 003344 G P.TMGC= 000020 G 
L.ORVS= 000064 G MD.NXU= 000001 G ONLINE 025064 PCBSTP= 000014 G P.TMSK= 000020 G 
L.EVNT= 000012 G MD.OBC= 000004 G OP .ABO= 000001 G PCB3SP= 000044 G P.TRBC= 000040 G 
L.FHVR= 000050 G MD.REV= 000010 G OP.ACC= 000020 G PCFLAG 003516 G P.UHVR= 000053 G 
L.FLGS= 000011 G MD.RWD= 000002 G OP.ACP= 000102 G PCKSIZ 010564 G P.UNFL= 000016 G 
L.FMT = 000010 G MD.SEC= 001000 G OP.AVA= 000100 G PCMDBF 003264 G P.UNIT= 000004 G 
L.FMTD= 000042 G MD.SER= 000400 G OP.AVL= 000010 G PDMP 050077 P.UNTI= 000024 G 
L.FSVR= 000051 G MD.SPD= 000001 G OP.CMP= 000040 G PDRECV 026106 G P.USVR= 000052 G 
L.GPCT= 000044 G MD.SWP= 000004 G OP .DAP= 000013 G PHB = 000002 G P.VRSN= 000014 G 
L.LBLK= 000060 G MD.UNL= 000020 G OP .END= 000200 G PKPRNT 015476 QCMD 023050 G 
L.LVL = 000042 G MEDIAS 110560 G OP .ERG= 000026 G PNT = 001000 G RANGEN 022716 G 
L.MLUN= 000026 G MEOTBL 002227 G OP .ERS= 000022 G POLER 012045 RANWRD 003426 G 
L.OPFL= 000070 G MINBUF= 000024 G OP.GCS= 000002 G POLT 011052 G RAN1 003430 G 
L.PBLK= 000056 G MINITR= 000144 G OP .GUS= 000003 G PORTER 012266 RAN2 003432 G 
L.PSTN= 000044 G MINLIM 010570 G OP.ONL= 000011 G PRI = 002000 G RAN3 003434 G 
L.RTRY= 000043 G MINT 047331 OP.RD = 000041 G PRIERR 032550 G RD = 000010 G 
L.RWST= 000066 G MINUTE 002214 G OP.REP= 000045 G PRIPCK 014136 RDOBUF 050560 G 
L.SEQN= 000006 G MISSEQ= 000005 G OP.SCC= 000004 G PRIOO = 000000 G ROBYTi= 000110 G 
L.STI = 000050 G MSCPVR= 000000 G ~ OP.SUC= 000012 G PRIO1 = 000040 G RDBYT2= 000112 G 
L.STS = 000052 G MSGEXT 015670 OP.WR = 000042 G PRIO2 = 000100 G RDBYT3= 000114 G 
L.TRK = 000055 G MSGLEN= 177774 G OP .WTM= 000044 G PRIO3 = 000140 G ROBYT4= 000116 G 
L.UHVR= 000041 G MSKTST 030774 OTHER = 000102 G PRIO4 = 000200 G RDERL 031572 
L.UNIT= 000004 G MTBLOV= 000040 G OVERUN 012557 PRIOS = 000240 G ROR = 000011 G 
L.UNTI= 000030 G N = 000004 G OVRRUN= 000074 G PRIO6 = 000300 G RDRENO 010272 G 
L.USVR= 000040 G NCLK 017770 G OWN = 100000 G PRIO7 = 000340 G RDREN1 010356 G 
L.VSER= 000044 G NCLKFL= 000002 G OSAPTS= 000000 PRNTPA 002223 G RDREN2 010442 G 
L10000 002210 NOCL 050034 OSAU = 000000 PRPA 047570 RDREN3 010526 G 
L10001 002314 NOCLK 021044 G O$BGNR= 000001 PRICLR 026230 G ROSOER 002225 G 
L10002 014500 NOCLR 002230 G O$BGNS= 000001 PRTDRV 025730 G RDSRGO 010232 G 
L10003 021034 NOERR = 000106 G O$sDU = 000001 PRTEXT 031736 RDSRG1 010316 G 
Li0005 021076 NOMDTB= 000100 G OSERRT= 000001 PRTINT 026306 G RDSRG2 010402 G 
L10006 021236 NOTALY= 000004 G OSGNSW= 000001 P.BCNT= 000014 G RDSRG3 010466 G 
L10007 037010 NRDY = 000002 G OSPOIN= 000001 P.BUFF= 000020 G ROSTEL 011212 
L10010 040374 NUL = 000000 G O$SETU= 000001 P.CHVR= 000051 G ROTB = 000002 G 
L10011 040376 NULL 024436 PADD 047541 P.CMST= 000020 G ROTER 012017 
L1i0012 040446 NULPAT= 000000 G PADING 002222 G P.CNTF= 000016 G ROTT 011042 G 
L10013 040712 NUPASS 037210 PASCNT 003522 G P.CRF = 000000 G READ 024442 ° 
L10014 040720 NURESP= 100000 G PATCH 115620 G P.CSVR= 000050 G RECCNT 003546 G 
L10015 043122 OBCTHD 023276 G PATCLR 033714 P.CTPM= 000034 G RESP 003414 G 
L10016 043616 OBJECT 003520 G PATE 050171 P.DVPM= 000034 G RESPON 003406 G 
L10017 044274 OBJFDH= 000036 G PATERN 002233 G P.FLGS= 000011 G REVBIT= 000001 G 
L10020 044654 OBJFDL= 000034 G PATGNi 022362 P.FMEM= 000044 G REW = 000160 G 
L10021 045174 OBOFFH= 000006 G PATGN2 022376 P.FORM= 000040 G REWIND 025254 
L10022 045652 OBOFFL= 000004 G PATGN3S 022410 P.HTMO= 000020 G RLSER 012421 
L10023 046240 OCTHEX 033376 G PATGN4 022450 P.MEDI= 000034 G RLST 011122 G 
L10024 046330 ODDFLG= 000020 G PATGNS 022464 P.MLUN= 000014 G RMSPOS= 000076 G 
L10025 050550 OFLER 011541 PATGN6 022504 P.MOD = 000012 G RNDBYT= 000000 G 
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RNDITR= 000000 G SFTEX4 047374 ST.CMD= 000001 G TKINIT= 111400 G T$$SRV= 010006 
RNUSAV= 000020 G SFTEXS 047566 ST.CMP= 000007 G TKIP = 000000 G T$$SW = 010001 
ROLSAV= 000022 G SFTEX6 047772 ST.CNT= 000012 G TKIPAD 046270 T$$TES= 010023 
RSPBFO 004026 G SFTEX7? 050140 ST.DAT= 000010 G TKSA = 000002 G T1 040722 G 
RSPBF1 005066 G SFTEX8 050366 ST.DIA= 000037 G TKUNIT= 000004 G TIEXIT 042632 
RSPBF2 006126 G SFTEX9 050474 ST.ORV= 000013 G TKUNT 046305 TILEOT 042652 
RSPBF3 007166 G SKD = 000062 G ST.FNT= 000014 G TB == 000010 G TIONL 042636 
RSPCNT 003402 G SKP = 000060 G ST.HST= 000011 G TMCNT 003550 G TiIRD1 043056 
RSPHOL 027432 G SKPTMK 024610 ST.LED= 000023 G TMER 011771 TIRD2 043064 
RS1 = 001233 G SKR = 000061 G ST.MFE= 000005 G TMT 011022 G TIRDS = 043072 
RS2 = 007622 G SLTUSE= 000010 G ST.MSK= 000037 G TRK = 000000 G TiIRD4 043100 
RS3 == 000000 G SOER 047623 ST.OFL= 000003 G TSPA 050142 TIRDS 043106 
RTYECi= 000064 G SOERRP 002224 G ST.ONL= 000400 G TSTMSK 003440 G TIRD6 043114 
RTYEC2= 000066 G SOFT = 000003 G ST.POL= 000021 G TSTSTP= 000006 G TIREW 042644 
RTYEL 012574 SPC = 000050 G ST.RDT= 000020 G T$ARGC= 000004 T1SKD 043004 
RTYERL 011252 SPCASC 011346 ST.SEX= 000022 G T$CODE= 026004 TISKP 042666 
RWI = 000163 G SPCOBJ 024664 ST.SUB= 000040 G TSERRN= 000000 TISKP1 042762 
R10 0v3534 G SPCREC 024542 ST.SUC= 000000 G T$EXCP= 000000 TISKP2 042770 
Ril 003536 G SPO = 000070 G ST.Ti = 000016 G T$FLAG= 000041 TISKR 042674 
Ri2 003540 G SPR = 000071 G ST.WPR= 000006 G T$FREE= 115754 TISKR1 042732 
R3SAVE 003560 G SRD = 000005 G SUBCNT 003424 G T$GMAN= 000000 TiSPC1 042702 
R4SAVE 003562 G SRER 047666 SUBITR 023142 G T$HILI= 065000 T1SPC2 042710 
R8 003530 G SRTBL 031732 SUBSEC 002216 G T$LAST= 000001 TiSPC3 042716 
R9 003532 G START 037052 SUC = 000150 G T$LOLI= 000000 T1SP01 042724 
SAERR 010566 G START1 040760 SUCCES= 000001 G T$LSYM= 010000 TisP02 042740 
SAVDIF 003436 G START2 043162 SUNCHR 025162 T$LTNO= 000007 T1SP03 042746 
scC = 000230 G START3 043620 SUPRES 025650 T$NEST= 177777 TISPR1 042754 
SCD = 000052 G START4 044334 SUW = 000155 G T$NSO = 000000 TISPR2 042776 
SCHED 021240 G STARTS 044714 SVCGBL= 000000 T$NS1 = 000005 TIWR1 = 043012 
SCNTCH 025466 START6 045234 SVCINS= 000000 T$PCNT= 000000 TIWR2 043020 
SCR = 000051 G START? 045712 SVCSUB= 000000 T$PTAB= 010027 TIWR3 043026 
SDOSAVE 033640 G STATER 012445 SVCTAG= 000000 T$PTHV= 000001 TIWR4 043034 
SDSTUP 033564 G STATUS= 000004 G SVCTST= 000000 T$PTNU= 000001 TIWRS 043042 
SECOND 002215 G STATO 035472 SWR = 000004 G T$SAVL= 177777 TIWR6 043050 
SECRNS 003542 G STAT1 035475 SYSFAT= 000000 G T$SEGL= 177777 TIWTM 042660 
SED1 = 000136 G STAT10 036230 S$LSYM= 010000 T$SIZE= 000004 T2 043124 G 
SED2 = 000140 G STAT11 036300 $1 = 004000 G T$SUBN= 000000 T2END = 004716 G 
SED3 = 000142 G STAT12 036352 SIREAD= 000040 G T$TAGL= 177777 T2EXIT 043542 
SEED1 = 000144 G STAT13 036413 SiWRIT= 000044 G T$TAGN= 010031 T2LEOT 043566 
SEED2 = 000146 G STAT14 036436 S2READ= 000042 G T$TEMP= 000000 T2RD 043574 
SEEDS = 000150 G STATIS 036461 S2WRIT= 000046 G T$TEST= 000007 T2REW 043552 
SELDAT 022212 G STAT16 036533 TBLBTM= 000132 G T$TSTM= 177777 T2SKD 043602 
SELREC 022644 G STAT17 036605 TBLEND= 003472 G T$TSTS= 000001 T2SPO 043610 
SEQER 012347 G STAT18 036655 TBLFUL 036724 G T$$AU = 010014 TewRT 043560 
SERC 047477 STAT2 035541 TBLOFF 003544 G T$$AUT= 010011 13 043620 G 
SERCGR 002221 G STAT3 035606 TBLSRT 032174 G T$$CLE= 010012 T3EXIT 044226 
SEREXC= 000002 G STAT4 035666 TBLTOP= 000130 G T$$DAT= 010030 T30N 050207 
SERR 047433 STATS 035713 TCNTFL= 000004 G T$$DU = 010013 T3ONLY 002234 G 
SERREC 002220 G STAT6 035760 TESTPA 002232 G T$$HAR= 010024 T3RD 044260 
SEXB = 000004 G STAT7 036032 TF .BLK= 000010 G T$$HW = 010000 T3REW 044236 
SEXER 012063 STATS 036077 TF .GCR= 000004 G T$$INI= 010010 T3SP0 044266 
SEXT 011062 G STAT9 036151 TF .PE = 000002 G T$$MSG= 010003 T3WRT 044244 
SFPTBL 002212 G STFPCK 024164 G TF .800= 000001 G T$$PC = 000001 T3WTM 044252 
SFTEXT 050550 STINIT 037012 G TIME 020044 G T$$PRO= 010004 T4 044276 G 
SFTEX1 046746 ST.ABO= 000002 G TIMER 010556 G T$$PTA= 010027 T4EXIT 044626 
SFTEX2 047142 ST.AVL= 000004 G TIMERR 012312 T$$RPT= 010007 T4REW 044632 
SFTEX3 047214 ST.BOT= 000015 G TKERR 026500 T$$SOF= 010025 T4WRT 044640 
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T4WT™M 044646 T7CMD2 002246 UF .RMV= 000200 G URDSRG= 000162 G WR = 000020 G 
5 044656 G T7CMD3 9002254 UF ..VSS= 000040 G UREEL 012740 WRBYT1= 000120 G 
TSCMP 002235 G T7CMD4 002262 UF ..VSU= 020000 G UREERL 011262 WRBYT2= 000122 G 
TSCP 050230 T7CMDS 002270 UF .WPH= 020000 G URSPBF= 000156 G WRBYT3= 000124 G 
TSEXIT 045154 T7CMD6 9002276 UF .WPS= 010000 G UWEEL 012760 WRBYT4= 000126 G 
TSRD 045166 T7CMD7 002304 UNDROP= 000032 G UWEERL 011242 WRERL 031516 
TSREW 045160 T7END 002312 UNDRUN= 000072 G U1LOFF = 005040 G WRITE 024462 
T6 045176 G T7EXIT 046230 UNITRV 020662 G U20FF = 002420 G WRKMSK 003442 G 
T6EXIT 045604 T7TBL 002232 G UNJAM 033250 G U3SOFF = 001540 G WRTBUF 070560 G 
T6RD 045636 VAM = 000200 G UNLBIT= 000004 G U40FF = 001210 G WTAPMK 024722 
T6REW 045614 UCDEND= 000170 G UNTEOT 020256 G WOSTEL 011222 WIM = 000100 G 
T6SKD 045644 UCDSRG= 000166 G UNTLOT 020312 G WMSPOS= 000100 G XFERST= 000010 G 
T6WRT 045622 UDRNER 012541 UNTSTP= 000002 G WPRB = 000020 G X$ALWA= 000000 
T6WTM 045630 UDROP 003524 G UNTTBL 003360 G WPRBIT= 000005 G X$FALS= 000040 
17 045654 G UVEOT 003526 G URBEND= 000160 G WPRER 011603 X$OFFS= 000400 
T7BRFL= 000001 G UF .CMR= 000001 G URDEND= 000164 G WPRT 019722 G X$ TRUE = 

T7CMD1 002240 UF .CMW= 000002 G 


- ABS. 115754 000 = =6CRW, I, GBL, ABS, OVR) 
000000 001 C(RW,I,LCL,REL,CON) 
Errors detected: 0 
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